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.