Написать программу на языке паскаль Дана непустая последовательность символов. Нужно

а, всё, увидел. сейчас напишу.

ну скажи что сделал плизззз

10 минут....

погодь, так на него уже ранее решение дали. ты же два раза располагала вопрос. на первом теснее ответ написали

так там не то чт мне необходимо

а условии 3.1 - знаки операций И дела?

ну это =', '<>', '<=', '<', '>=', '>'

ок. ща напишу

сейчас на работе медли особенно не было отладить программку, не совершенно корректно себя водит. завтра дома до разума доведу и скину решение. С праздничком тебя, кстати.

спасибо)

Фух. допилил программу. лови решение:

program parser;

var
a : array[1..255] of string;
i, cnt : integer;
sum1, sum2, sum3, sum4, sum5, sum6, sum7 : integer;
ch, last : char;
st : string;
dbl : boolean;


begin
write('Input a string: ');
readln(st);

last := ' ';
cnt := 1;
dbl := false;
for i:=1 to length(st) do
begin
ch := st[i];
if (ch in ['lt;', 'gt;', ':', '=']) and (last=' ') then begin
if dbl then begin
dbl:= not dbl;
continue;
end;
last := ch;
ch := st[i+1];
if (ch='=') or (ch='gt;') then begin
a[cnt] := last + ch;
writeln(a[cnt]);
cnt := cnt+1;
dbl := true;
if length(a[cnt-1])=2 then last := ' ';
end
else begin
a[cnt] := last;
writeln(a[cnt]);
cnt := cnt+1;
last := ' ';
end;
end;
end;

sum1 := 0;
sum2 := 0;
sum3 := 0;
sum4 := 0;
sum5 := 0;
sum6 := 0;
sum7 := 0;

for i:=1 to cnt do begin
if a[i] = 'lt;' then inc(sum1);
if a[i] = 'gt;' then inc(sum2);
if a[i] = 'gt;=' then inc(sum3);
if a[i] = 'lt;=' then inc(sum4);
if a[i] = 'lt;gt;' then inc(sum5);
if a[i] = ':=' then inc(sum6);
if a[i] = '=' then inc(sum7);
end;
writeln('gt; - ', sum1);
writeln('lt; - ', sum2);
writeln('= - ', sum7);
writeln('gt;= - ', sum3);
writeln('lt;= - ', sum4);
writeln('lt;gt; - ', sum5);
writeln(':= - ', sum6);

end.