1) составьте программу, вычисляющую сумму квадратов всех чисел от 1 до N. 2) написать программу, определяющую сумму всех нечетных чисел от 1 до 99

Question

1) составьте программу, вычисляющую сумму квадратов всех чисел от 1 до N. 2) написать программу, определяющую сумму всех нечетных чисел от 1 до 99

Гость

Ответ(ы) на вопрос:

Accepted Answer

1) var i,n,s:integer; begin readln(n); s:=0; for i:=1 to n do S:=s+i*i; write(s); end.2) var i,s:integer; begin s:=0; i:=1; while i<=99 do begin S:=s+i; i:=i+2; end; write(s); end.