Вывести квадраты натуральных чисел в диапазоне от [a,b]
на языке pascal.

Linaa631 Linaa631    3   01.02.2021 15:55    2

Ответы
Maga052005 Maga052005  01.02.2021 16:00

program prog;

var a,b:integer;

begin

   write('Введите a: '); readln(a);

   write('Введите b: '); readln(b);

   while a <= b do

   begin

       write(sqr(a), ' ');

       a:=a+1

   end

end.

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