Question

ПОМОГИТЕ ПОЖАЛУЙСТА!
. Дано три дійсних числа a, b, c. Якщо a-b>с, кожне число
збільшується вдвічі, інакше Кожне число зменшується на
одиню. Розробіть програму реалізації цього завдання.​

Answer 1

var a,b,c:integer;

begin

 read(a,b,c);

 if a-b > c then begin

   a:=a*2;

   b:=b*2;

   c:=c*2

   end

  else

    begin

   dec(a,1);

   dec(b,1);

   dec(c,1);

   end;

   writeln(a,' ',b,' ',c);

end.

*dec функция уменьшающая число n на i