с решением по информатике :вывести сумму чисел квадратов в промежутке от 1 до n. Число n вводим с клавиатуры ​

mariyavlasova2 mariyavlasova2    1   03.04.2021 13:44    0

Ответы
nikitosik1296 nikitosik1296  03.04.2021 13:50

program Sanya2263;

var i,n,s: integer;

begin

Read(n);

For i:= 1 to n do

s:=s+sqr(i);

Write(s);

end.

ПОКАЗАТЬ ОТВЕТЫ
mixmix2002 mixmix2002  03.04.2021 13:50

var sum, n, i:integer;

begin

sum:=0;

readln(n);

for i:=1 to n do

sum := sum + i*i;

write(sum);

end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика