Цикл "для". написать программу 1)найти сумму квадратов целых чисел от 1 до 100.

Kally2007 Kally2007    2   15.08.2019 02:30    0

Ответы
Аноним8127 Аноним8127  04.10.2020 20:16
Var
  i, sum: longint;
 begin
  for i := 1 to 100 do sum := sum + sqr(i);
  write(sum);
end.
ПОКАЗАТЬ ОТВЕТЫ
jeni1955ma jeni1955ma  04.10.2020 20:16
Var
s,i,n:integer;

begin
i:=100;
s:=0;
For n := 1 to i do
begin
s:=s+i*i;
i:=i-1;
end;
writeln('Сумма квадратов целых чисел от 1 до 100 равна ',s);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика