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

котикkatya котикkatya    1   04.10.2019 14:50    2

Ответы
alinatrocenko alinatrocenko  17.08.2020 07:57

var

 a, b: integer;

 

begin

 readln(a, b);

 while a <= b do

 begin

   write(sqr(a), ' ');

   a += 1;

 end;

end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика