Question

ПРОШУ, ПОМОГИТЕ! 1) Составьте программу вычисления суммы ченых чисел в диапазоне от 1 до 100. 2) Составьте программу вычисления произведения чисел от 1 до 10. 3) Составьте программу, которая находит сумму квадратов чисел от 1 до 10.

Answer 1

Program a1;
var x1, sum:integer;
begin
sum:=0;
for x1:=1 to 100 do
if x1 mod 2=0 then sum:=sum+x1;
writeln(sum);
end.

program factorial;
var x1,fak:integer;
begin
fak:=1;
for x1:=1 to 10 do fak:=fak*x1;
writeln(fak);
end.

program a3;
var x1,sum:integer;
begin
sum:=0;
for x1:=1 to 10 do sum:=sum+sqr(x1);
writeln(sum);
end.