Информатика
12,13,14
решите мне .

12. Решите задачу, используя любой цикл (с известным числом шагов с предусловием или постусловием). S=10+2*x/3...

//Код программы на Pascal 3.5.2:

var

x, n:integer;

 S:real;

begin

S:=10;

 readln(n,x);

 for var i:=2 to n do

 begin

   S+= (i*x)/3;

 end;

 writeln('S=', S);

end.

13. Найдите произведение последовательных натуральных чисел от n до m.

//Код программы на Pascal 3.5.2:

var

n,m:integer;

 W: int64;

begin

 readln(n,m);

 W:=n*(n+1);

 for var i:=n+2 to m do

 begin

   W:=W*i;

 end;

 writeln(W);

end.

14.a Блок кода

//Код программы на Pascal 3.5.2:

var

 x:integer;

 S:real;

begin

 for var i:=1 to 10 do

 begin

   readln(x);

   S:=S+x/2;

 end;

//writeln(S);

end.

14.b Блок кода

//Код программы на Pascal 3.5.2:

var  

k:integer;

 i:integer;

begin

 while i<15 do begin

   k+=1;

   i+=1;

 end;

//writeln(k);

end.