Question

Задание Паскаль .Вывести квадраты всех чисел от a до b. ( Значения а и b вводятся с клавиатуры; b>=a).Для выполнения организовать цикл с предусловием.

Answer 1

//PascalABC.NET v3.3 1633

begin

 var a,b: integer;

 repeat

   a:=ReadInteger('Введите A: ');

   b:=ReadInteger('Введите B: ');

   if not (b >= a) then writeln('Неверный ввод! B должно быть больше или равно A!');

 until b >= a;

 while a <= b do

 begin

   writeln(' '+a+'^2 = '+sqr(a));

   a += 1;

 end;

end.