Даны три переменные вещественного типа: А,В,С. Если их значения упорядочены по возрастанию или убыванию, то удвоить их; в противном случае заменить значение переменной на противоположное. Вывести новые значения переменных А,В,С — Pascal(Паскаль)

var
a,b,c:integer;
begin
writeln('a b c');
readln(a,b, c);

if (a<=b) and (b<=c) or (a>=b) and (b>=c) then
begin
 a:=2*a;
 b:=2*b;
 c:=2*c;
end else
begin
 a:=-a;
 b:=-b;
 c:=-c;
end;
writeln('a=',a);
writeln('b=',b);
writeln('c=',c);
end.

Результат работы программы

Похожие записи/страницы:

Leave a Comment

60 − = 54