Найти сумму квадратов первых n натуральных чисел/ - вопрос №5277053 от dianashotys 13.02.2020 00:09

Question

Информатика: Найти сумму квадратов первых n натуральных чисел/ ох, простите! : ddd на языке паскаль

dianashotys · Answer

Попробуй так: (но у меня нет компилятора под рукой, если что не получится, то напиши мне, разберусь)

program dydaone ;

var i, i2, n, sum : longint ;

write ('vvedi n' ) ;
readln ( n ) ;

sum := 0 ;

for i = 1 to n do begin
i2 := i * i ;
sum := sum + i2 ;
end ;

wrieln ( 'summa kvadratov=' , sum ) ;
end.