Дано 2 целых числа a и b,2<b.Найти сумму квадрата всех чисел от a до b
решить​

ilyacher123 ilyacher123    2   04.12.2020 19:34    2

Ответы
hhwjsbjweujskzks hhwjsbjweujskzks  03.01.2021 19:46

var a,b,i,kvadrat: integer;

begin

writeln('Введите числа a и b (a должно быть меньше b)');

readln(a,b);

for i:=a to b do

begin

kvadrat := i*i;

writeln('Квадрат числа ',i,' = ',kvadrat);

end;

end.

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