Ответы и объяснения

Лучший Ответ!
2014-02-02T00:30:07+04:00
Program chik;
var x,y:real;
begin
readln(x);
if(x<>23)then begin
y:=(5*x-2*x*x)/(x-23);
writeln(y);
end;
end.
2)
program chik2;
var a,b:real;
begin
readln(a,b);
if(a<b)then writeln(a);
if(a>b)then writeln(b);
end.
3)
program chik3;
var n,p,a,b:integer;
begin
readln(n);
a:=n div 100;
b:=n mod 10;
p:=a*b;
writeln(p);
end.
4)
program chik4;
var x,y:real;
begin
readln(x,y);
if(x>0)and(y<0)then writeln('yes')else writeln('no');
end.
5)
program chik5;
var x,y:real;
begin
readln(x);
if(x<5)then y:=5*x;
if(x>5)then y:=1/(x-5);
if(x<>5)then writeln(y);
end.