3х+34х=412
37х=412
х=412×37
х=15244
Властивість Ім'я Значення Україна Площа 604 тис. кв. км Довжина кордону 7 590 км Кольори на прапорі Синій, жовтий Численість населення 47 млн
Корректный ip адрес компьютера:1) 198.15.19.216
Var
A,R:real;
i,L,z:integer;
S:string;
Begin
Read(S);
L:=Length(S);
i:=1;
R:=0;
While (S[i]in['0'..'9'])and(i<L) do
Begin
R:=R*10+StrToInt(S[i]);
i:=i+1
End;
While i<L do
Begin
Case S[i] of
'+':z:=0;
'-':z:=1;
'*':z:=2;
'/':z:=3;
End;
i:=i+1;
A:=0;
While (S[i]in['0'..'9'])and(i<L) do
Begin
A:=A*10+StrToInt(S[i]);
i:=i+1
End;
if i=L then A:=A*10+StrToInt(S[L]);
Case z of
0:R:=R+A;
1:R:=R-A;
2:R:=R*A;
3:R:=R/A;
End;
End;
WriteLn('R = ',R);
End.
Это арифметический цикл
<span>for переменная := (значение №1) to (значение №2) do (оператор)
</span>например если требуется возвести в куб какое-либо число, то удобно использовать данный цикл
<span>for x:=1 to 10 do WriteLn(x*x*х);
</span>
надеюсь, что понятно написала)