Вопрос по информатике:
напишите алгоритм (программу ), проверяющую является ли частью данного слова слово '' том''. Ответ должен быть ''да'' или "нет"
- 06.07.2018 10:15
- Информатика
- remove_red_eye 2752
- thumb_up 85
Ответы и объяснения 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.
- 07.07.2018 15:16
- thumb_up 23
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.