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