Не могу решить.
Добавлено: 30 авг 2009, 15:05
Помогите решить плиз. Задача такая: Даны 3 числа а, в, с. Удвоить каждое из них, если а>=b>=c и заменить их модулями в противном случае.
Код: Выделить всё
uses crt;
var a,b,c: real;
begin
clrscr;
write('a-> ');
readln(a);
write('b-> ');
readln(b);
write('c-> ');
readln(c);
if (b>=c) and (a>=b) then
begin
a:=a*2;
b:=b*2;
c:=c*2;
end
else
begin
a:=abs(a);
b:=abs(b);
c:=abs(c);
end;
writeln('a= ',a:8:3);
writeln('b= ',b:8:3);
writeln('c= ',c:8:3);
readkey;
end.
