(задача в паскале.)
В строке символов имеются буквы А и В. Определите, какая буква встретится раньше, если просматривать символы слева направо.

1

Ответы и объяснения

  • jd42
  • середнячок
2013-10-21T13:52:17+04:00
Var st:string;
i:byte;

begin
readin(st);
for i:=1 to length(st) do
 if st[i] = 'A' then
 begin
  write('А встретилась раньше'); 
break;
end
else
   if st[i] = 'B' then
begin
write('B встретилась раньше');
break;
end;

end.