Предмет: Информатика,
автор: ksuchaa
составить программу вычисления суммы квадратов всех целых чисел от -20 до 30
Ответы
Автор ответа:
0
var i,s:integer;
begin
s:=0;
for i:=-20 to 30 do
s:=s+i*i;
Writeln(s);
end.
Вопросы, ошибки, недочеты в ЛС
Автор ответа:
0
var x,y:integer;
begin
for y:=-20 to 30
x:=x+sqr(y);
writeln(x);
end.
begin
for y:=-20 to 30
x:=x+sqr(y);
writeln(x);
end.
Интересные вопросы
Предмет: Физика,
автор: 1mp0rt
Предмет: Математика,
автор: whiteswan09
Предмет: Другие предметы,
автор: nurbekovagulzhazira
Предмет: Математика,
автор: 667766776677