Question

1) получили целые числа a и b и в диапазоне от a до b программа, которая возводит в квадрат все натуральные числа Создайте ману.
?????​

Answer 1

Ответ:

Var

 a,b,i:integer;

Begin

 Write('Введите А и В ');

 Read(a,b);

 for i:= a to b do

   writeln(a+(i-a),'^2 = ',sqr(i));

End.