0 рейтинг
18 видели

напишите алгоритм (программу ), проверяющую является ли частью данного слова слово '' том''. Ответ должен быть ''да'' или "нет"

от Супер Доцент (57.1k баллов) в разделе Информатика | 18 видели

1 Ответ

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.2k баллов)
10,984,878 заданий
13,471,016 решений
8,518,553 комментариев
4,909,216 пользователей