Напишите программу,которая вычисляет сумму: 1) квадратов первых n натуральных чисел.( 2...

Question

Напишите программу,которая вычисляет сумму: 1) квадратов первых n натуральных чисел.( 2 способами:фор и вайл) 2)всех чётных чисел в диапазоне от 1 до n.( 3 способами:фор ,вайл и интежер)Паскаль.Заранее спасибо 100 б

Answer 1

Ответ:

A) var s, i, n :integer;

begin

s:=0;

readln(n);

for i:= 1 to n do s:=s+i;

writeln(s);

end.

б) var s, i, n :integer;

begin

s:=0;

readln(n);

for i:= 1 to n do s:=s+(i*i);

writeln(s);

end.

в) var s, i, n :integer;

begin

s:=0;

readln(n);

for i:= 1 to n do

begin

if (i mod 2 = 0) then s:=s+i;

end;

writeln(s);

end.

г) var s, i :integer;

begin

s:=0;

for i:= 10 to 99 do s:=s+i;

writeln(s);

end.

Объяснение:

g