Добро пожаловать на сайт Ответы онлайн, где вы можете задавать вопросы и получать ответы от других членов сообщества.

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

0 голосов
46 просмотров

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


вопрос по Информатика от Супер Доцент (57.1k баллов)
Дан 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 баллов)
...