Ответы на вопрос:
ответ:
program summa;
var
k, y, s: integer;
begin
s : = 0;
for k : = 1 to 10 do begin
s : = s + k * k;
end;
y : = 100 + 5 * s;
writeln ('y = ', y);
readln;
end.
объяснение:
текста полностью не видно. сделал для k - целых чисел. если не так - напишите.
Популярно: Информатика
-
Lenin22708.09.2022 06:55
-
Gakaka23.01.2020 17:06
-
Danila555525.09.2022 16:46
-
irinkaff128.09.2021 15:14
-
khursin0318.11.2020 12:42
-
luss5519.07.2022 22:02
-
1285318.12.2021 09:46
-
arsaeva7312.09.2022 09:20
-
юли1024.09.2022 11:20
-
yra837200429.12.2022 12:10