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

1

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

Лучший Ответ!
2013-10-22T10:48:18+00:00
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.

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