Pascal, даю 25 баллов Дан текст. В нем может быть текст, сколь угодно длинные строки и...

Question

Pascal, даю 25 баллов Дан текст. В нем может быть текст, сколь угодно длинные строки и т.д.. Если в нем встречается число 2557, то на выходе выведите слово URA, если же 2557 не встречается, выведите NO. Пример Вход Выход hgdfjgkdghkdjgkgkd2557gjdlgkdjlg URA 2=5 5=7 NO

Answer 1

Ответ:

Объяснение:

var

 s:string;

begin

 readln(s);

 if (Pos('2557', s)<>0) then writeln('URA') else writeln('NO');

end.