Ответ:
program tochka;
var x,y:real;
begin
writeln('Input x,y');
read(x,y);
if (x*x+y*y>4) and (y<x) and (x<2) then writeln ('YES')
else
writeln('NO');
end.
Вот по этой формуле достаточно просто, насчет других СС я не поняла, не приходилось как-то...
Var f1,f2,fn,i,s:integer;
begin
f1:=1; f2:=-1;
i:=2; s:=0;
while i<20 do
begin
i:=i+1;
fn:=f1+f2;
f1:=f2;
f2:=fn;
if i>=7 then s:=s+fn;
end;
writeln('s = ',s);
end.
Результат:
s = -4176
Банальный пример... человек
Может: пить, есть, учиться, решать задачи сам, думать головой, работать, смотреть фильм, играть и т.д................