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

2013-11-21T22:25:30+04:00
А во втором номере Х переменная которую вводят? если да то вот так
program ur;
var y,x: real;
begin
writeln('Введите х');
readln(x);
y:=(10-x)/(x-5);
writeln(y);
end.
3.
5. var a,b: real;
begin
read(a,b);
if ((a<0) and (b<0)) or ((a>0) and (b>0)) then writeln('Числа одого знака')
else writeln ('Числа разных знаков');
end.
Комментарий удален