Предмет: Информатика,
автор: Kristy2906
Написать программу для Pascal. Вот условие. Надеюсь на помощь.
Приложения:
Ответы
Автор ответа:
0
program asdasd;
var s:string;
begin;
read(s);
if pos('рак',s) = 0 then write('Нет') else write('Да');
end.
var s:string;
begin;
read(s);
if pos('рак',s) = 0 then write('Нет') else write('Да');
end.
Похожие вопросы
Предмет: Английский язык,
автор: margaritakapranova5
Предмет: Русский язык,
автор: 20043848483
Предмет: Английский язык,
автор: Дашка11Милашка
Предмет: Химия,
автор: IgorSolopov2001
Предмет: Биология,
автор: iigor777vip