Question

Задача1. Вычислить 10!=1*2*3*4*5*6*7*8*9*10, используя цикл с параметром (For)
Задача2. Используя оператор цикла с предусловием (While) вывести на печать все четные числа в интервале от 2 до 20 и найти их сумму и произведение.

Answer 1

1)

begin

 var Fact:=1;

 for var i:= 1 to 10 do

   Fact*=i;

 Println(Fact);

end.

2)

begin

 var (x,sum,product):=(2,0,BigInteger(1));

 while x <=20 do begin

   Print(x);

   sum+=x;

   Product*=x;

   x+=2;

 end;  

 Writeln('Сумма = ',sum,newline,'Произведение = ',product);

end.