Напечатать все целые числа от а до б и квадраты всех целых чисел от а до б через for и while.

Question

Информатика

Нелли

22 мая, 10:38

Напечатать все целые числа от а до б и квадраты всех целых чисел от а до б через for и while.

+3

Ответы (1)

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

Виталий · Answer 1

Var a, i, b: integer;

begin

readln (a, b) ;

for i : = a to b do

writeln (i, ' ', sqr (i)) ;

i : = a;

while (i < = b) do

begin

writeln (i, ' ', sqr (i)) ;

inc (i) ;

end;

end.

В одной программе оба подхода =)