)96. дано предложение, в котором имеются одна буква «с» и одна буква «т». определить, какая из них встречается раньше (при просмотре слова слева направо). это паскаль, строки)
var s:string; begin write ('Введите предложение: '); readln(s); if pos('с',s)>pos('т',s) then writeln ('Буква «т» встречается раньше') else writeln('Буква «с» встречается раньше'); end.
var
s:string;
begin
write ('Введите предложение: ');
readln(s);
if pos('с',s)>pos('т',s)
then writeln ('Буква «т» встречается раньше')
else writeln('Буква «с» встречается раньше');
end.