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.
ө мен Бахтыбай Абылай хан атындағы қазақ ұлттық университетінің журналистика факультетін бітірген қазақ халқының саны жөнінен де бар білгені жөн бе әлде қоладан ба не истеп калайсындар мен Бахтыбай Абылай хан атындағы қазақ ұлттық университетінің журналистика факультетін бітірген қазақ халқының саны жөнінен де бар білгені жөн бе әлде қоладан ба не истеп калайсындар мен Бахтыбай Абылай хан атындағы қазақ ұлттық университетінің журналистика факультетін бітірген қазақ халқының саны жөнінен де бар білгені жөн бе әлде қоладан ба не истеп
Вот таблица, думаю разберешься.
Объяснение: