Ответ(ы) на вопрос:
Гость
2)var x,y:real;
Begin
Readln(x);
If x>4 then
y:=1/x-4;
If x<=4 then
y:=x*x;
Writeln(y);
End.
3)var a,b,c:integer;
Begin
Readln(a,b,c);
If (c>a) and (cWriteln('YES') else
Writeln('NO');
End.
Не нашли ответ?
Похожие вопросы