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

их модули.

Question

Бонифат

13 марта, 11:26

+5

Ответы (1)

Знаете ответ на вопрос?

Илия · Answer 1

Var i:integer;

begin

for i:=-10 to 10 do

begin

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

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

end;

end.

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