Cоставьте программу выводящую на экран все числа от -10 до 10, а также их модули (зАДАЧА 1) 8 КЛАСС!!!

(2 ЗАДАЧА) CОСТАВЬТЕ ПРОГРАММУ РИСОВАНИЯ ОКРУЖНОСТЕЙ С ЦЕНТРОМ В ТОЧКЕ (200,200) И РАДИУСОМ 10, 20, 30, 40, 50 (ПРИМЕНИТЕ КОМАНДУ 'For') 8 КЛАСС!!!

1

Ответы и объяснения

Лучший Ответ!
2012-11-04T09:24:20+04:00

program Moduli;

var i:integer;

BEGIN

  for i:=(-10) to 10 do write(i,' ');

  for i:=(-10) to 10 do write(abs(i),' '); {This will show modules}

readln;

END.

 

___
I work now at task 2 ....