Составьте программу, выводящую на экран все числа от - 10 до 10, а также

их модули.

Question

Володяка

18 мая, 19:23

+4

Ответы (1)

Знаете ответ?

Маруня · Answer 1

Var i:integer;

begin

for i:=-10 to 10 do

begin

writeln ('число=', i) ;

writeln ('модуль=', abs (i)) ;

end;

end.

Составьте программу, выводящую на экран все числа от - 10 до 10, а такжеих модули.