Олеся Сизова
Pascal abc Неверное выражение
Procedure propusk(Stroka:String;M:Byte; Var n:Byte);
begin
N:=M;
While(Stroka[N]=' ')and (N
End;
Function Sintax(Stroka: String ): Boolean;
Var i: byte;
begin
Sintax:=True;
For i:=1 to length(stroka) do
if Not((Stroka=' ') or Cifra (Stroka)or
(stroka='+' or (stroka='-') or (stroka='*')or(stroka='='))
then Sintax:=False;
End;