Предмет: Информатика,
автор: Аноним
13. Напишите программу находящую сумму квадратов чисел от 1 до N. Где N вводится с клавиатуры.
Ответы
Автор ответа:
0
var n,s,i:integer;
begin
write('n=');readln(n);
s:=0;
for i:=1 to n do s:=s+i*i;
writeln('s=',s)
end.
begin
write('n=');readln(n);
s:=0;
for i:=1 to n do s:=s+i*i;
writeln('s=',s)
end.
Похожие вопросы
Предмет: Геометрия,
автор: jhwnucng123
Предмет: Другие предметы,
автор: tfatima0675
Предмет: Қазақ тiлi,
автор: azimadin8084
Предмет: Математика,
автор: sihimbaeva
Предмет: Алгебра,
автор: Nikon56