Автор - maximstroev200393
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.