ПОМОГИТЕ ПОЖАЛУЙСТА)
96. Дано предложение, в котором имеются одна буква «с» и одна буква «т». Определить, какая из них встречается раньше (при просмотре слова слева направо). ЭТО ПАСКАЛЬ, СТРОКИ)
var
s:string;
begin
write (Введите предложение: );
readln(s);
if pos(с,s)>pos(т,s)
then writeln (Буква «т» встречается раньше)
else writeln(Буква «с» встречается раньше);
end.
Оцени ответ
