Ответы на вопрос:
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.
Популярно: Информатика
-
гик915.05.2020 02:35
-
teta89p016as10.05.2023 07:26
-
миша113310.06.2020 13:28
-
kofer19.01.2020 14:41
-
Астар13.07.2022 01:44
-
aleksport1p0ck6i27.09.2021 06:36
-
топ200606.12.2020 09:07
-
annaorlova223.03.2020 09:19
-
alexmarssampoylcqg05.11.2022 08:58
-
JuliaPetrova5619.06.2020 19:11