Вопрос пользователя:
напишите алгоритм (программу ), проверяющую является ли частью данного слова слово ” том”. Ответ должен быть ”да” или “нет”
Илюха отвечает:
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.