Задать вопрос Регистрация
Помочь другим

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

Ответы 1

  • 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. 

     

     

  • Добавить свой ответ

Еще вопросы

Топ пользователей

Войти через Google

 или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years