Ответы на вопрос:
program sss;
uses crt;
var s: string;
i,k,m: integer;
begin
clrscr;
readln(s);
for i: =1 to length(s)-2 do
begin
if ( (s[i] = 'т') or (s[i] = 'т') ) and ( (s[i+1] = 'о') or (s[i+1] = 'о') ) and ( (s[i+2] = 'м') or (s[i+2] = 'м') then
begin
k: =1;
break;
end;
end;
if k = 1 then writeln('да')
else writeln('нет');
readkey;
end.
Популярно: Информатика
-
Gorki200530.06.2023 09:50
-
ВикторияГога23.12.2021 14:24
-
chmochmoshnoe28.02.2023 19:16
-
Lngtnk531.01.2022 15:23
-
milk05117.08.2021 17:14
-
ГорголаІлля17.05.2021 19:16
-
diana2202200528.04.2020 20:27
-
Бегемотик39721.01.2023 15:00
-
mariasmiles10.01.2021 18:26
-
MAXIM360024.03.2021 11:53