A=12;
b=12/4=3;
a= 6*6+12=30;
b=30/3*5= 2
b=2
Сначала умножение, потом деление ( если нет скобок).
<u>PascalABC.NET 3.3.5, сборка 1660 от 20.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
<u>№1</u>
begin
var n:=ReadInteger('n=');
var x:=ReadReal('x=');
var (fact,sqrtx,s):=(1.0,Sqrt(Abs(x)),0.0);
for var i:=1 to n do begin
fact*=i; s+=1/fact+sqrtx
end;
Writeln('S=',5*s)
end.
<u>Пример</u>
n= 20
x= 3.18
S=186.916954143565
<u>№2</u>
begin
var n:=ReadInteger('n=');
var x:=ReadReal('x=');
var (powi,s):=(1.0,0.0);
for var i:=1 to n do begin
powi*=2; s+=(x+Sqr(Sin(i*x)))/powi
end;
Writeln('S=',s)
end.
<u>Пример</u>
n= 13
x= 0.59
S=1.12411258214649
Что-то я далек от блок схем... Обе картинки цикла
Вор варует - хакер взламывает
Вирусболезнь это живое - вирус компьютерный не живое