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

Question

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

Comments

Если озвучишь язык, то будут шансы что кто-ндь откликнется. А так непонятно на каком языке хочешь программу.

Answer 1

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

------------
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.  

Comments

я не знаю как тебе написать лично, поэтому так: здесь ищется сумма квадратов.. а нужно п нужна просто

---

а нужна сумма n натур чисел

---

program dydaone ; var i, i2, n, sum : longint ; write ('vvedi n' ) ; readln ( n ) ;sum:=0; for i:=1 to n do if a>0 then do sum:=s+a;

---

я в условии так прочитал, что нужна сумма квадратов, а не сумма числел

---

надо мне быть внимательнее... спасибо!)

---

ага. Сам тоже бывает лажанусь на какой-то невнимательности. Но это фигня всё на самом деле.