Question

Дано предложение в котором имеются буквы "с" и "т". Определить, какая из них встречается позже (при просмотре слова слева на право). Если таких букв несколько, то должны учитываться последние из них. Оператор цикла с условием не использовать

Answer 1

Var
  c,t:integer;
  s:string;
begin
readln(s);
s:=ReverseString(s);
t:=pos('т',s);
c:=pos('с',s);
write('Встречается позже: ');
if t>c then  writeln('"c"')  else  writeln('"т"')
end.