Паскаль. найти сумму квадратов всех целых чисел от —10 до в (значение в вводится с клавиатуры; в< 10)

andriytustanov andriytustanov    3   03.10.2019 14:01    2

Ответы
Нрататоаооаоп Нрататоаооаоп  09.10.2020 14:24

var i,B,s:integer;

begin

write('Введите число B: ');

readln (B);

for i:=10 downto B do s:=s+i*i;

writeln ('Сумма квадратов всех целых чисел от 10 до ',B,': ',s)

end.

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