Предмет: Информатика,
автор: uliya96
Составить программу, вычисляющую сумму квадратов всех чисел от 1 до 100. (В Pascal)
Ответы
Автор ответа:
0
var
i: integer;
s: real;
begin
s := 0;
for i := 1 to 100 do
s := s + i * i;
writeln(s:7:0);
end.
Интересные вопросы
Предмет: География,
автор: Dr4gonM8steR
Предмет: Алгебра,
автор: shjtoroo
Предмет: Английский язык,
автор: ainurajumarovna86
Предмет: Биология,
автор: ToraFereira