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.
ЧАЩЕ ВСЕГО ЧЕРЕЗ ПОИСК В ВЫРАЖЕНИЯХ(НУ ИЛИ СЛОВАРЯХ) ТАКИХ ЛЮДЕЙ, КАК ДАЛЬ, ОЖЕГОВ И Т.Д.
Начало: program p1;
uses crt;
var a,b,c,d,e,f,g,p:integer;
begin
Ввод 7 чисел: read( a,b,c,d,e,f,g);
Происходит умнож: p:=a*b*c*d*e*f*g;
Вывод: write(p);
Конец: end.
<span>2^8=256 8бит=1байт
1 байт*8000байт/сек*1сек=8000 байт</span>