<span><span>Пожалуйста, из русского издания "Алиса в стране чудес" Л.Кэррола:
"Вот дом,
Который построил жук.
А это певица,
Которая в темном чулане хранится
В доме,
Который построил жук.
А это веселая императрица,
Которая часто кусает певицу,
Которая в темном чулане хранится
В доме,
Который построил жук</span>
(перевод Д. Орловской)."</span>
Маша и вова, маша и олег, женя олег, женя вова ,маша женя
Названия и адреса файлов подгоните сами. Я выделю в коде жирным шрифтом.
uses crt;
var i,o:text;
s:string;
ans:integer;
begin
assign(i,'C:\Pascal\input.txt'); reset(i);
assign(o,'C:\Pascal\output.txt'); rewrite(o);
while eoln(i)<>true do
begin
readln(i,s);
if ((s[2]>s[1]) and (s[3]>s[2]) and (s[4]>s[3])) or ((s[2]<s[1]) and (s[3]<s[2]) and (s[4]<s[3])) then
begin
writeln(o,s);
inc(ans);
end;
end;
writeln(ans);
close(o);
<span>end.</span>
1. Строим систему ограничений исходя из приведенного рисунка.
2. Пишем программу (в данном случае на входном языке системы PascalABC.Net)
// PascalABC.Net
var
x,y:single;
begin
Read(x,y);
if (x>=0) and (x<=pi) and (y<=sin(x)) and (y<=0.5) then
Writeln('YES')
else
Writeln('NO')
end.