Code
Program kpa6;
var a,b,newa,newb : real;
Begin
writeln('Введите первое число : ');
readln(a);
writeln('Введите второе число : ');
readln(b);
newa := a;
newb := b;
if a = b then
begin
a := 0;
b := 0;
writeln('Числа равны. Заменил их нулями.');
end
else
begin
if a > b then
begin
a := newb;
b := newa;
writeln('1 число больше 2 , a = ', a,0,' b = ', b);
end
else
begin
if a < b then
begin
a := newb;
b := newa;
writeln('1 число больше 2 , a = ', a,' b = ', b);
end;
end;
end;
end.
Добавлено (20.02.2012, 20:59)
---------------------------------------------
P.S: делал на Algo . На мой взгляд она удобнее. Но код можешь переделать.
Добавлено (20.02.2012, 21:02)
---------------------------------------------
P.SS: если хочешь , что бы числа выводились в малом количестве ( например вместо 6.035456545 выводилось 6.0 , то замени
Code
writeln('1 число больше 2 , a = ', a,0,' b = ', b);
и
Code
writeln('1 число больше 2 , a = ', a,' b = ', b);
на
Code
writeln('1 число больше 2 , a = ', a:1:1,' b = ', b:1:1);
и
Code
writeln('1 число больше 2 , a = ', a:1:1,' b = ', b:1:1);
Добавлено (20.02.2012, 21:02)
---------------------------------------------
ENERGETIK,
это 9 класс -___________________-'
Добавлено (20.02.2012, 21:35)
---------------------------------------------
man248, чего молчишь ? работает ? нет?
Добавлено (21.02.2012, 12:29)
---------------------------------------------
Автор , мне же интересно. Переделал ты на свой недотурбопаскаль или нет? мозгов хватило? 
