Pyukevpat
5 год назад
Написать программу для Pascal. Вот условие. Надеюсь на помощь.
ОТВЕТЫ
Kir
Oct 24, 2020
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.
754
Смежные вопросы:
