Question

Даны два вещественных числа a и b, если сумма этих чисел больше 35, то увеличить их в 4 раза иначе уменьшить в 2 раза. Программа паскаль

Answer 1

program vld;

var

a,b : real;

begin

writeln('Введите 2 числа: ');

readln(a,b);

if a+b >35 then

 begin

 a := a *4;

 b := b * 4

 end

else

 begin

 a := a / 2;

b := b / 2;

end;

writeln(a);

writeln(b);

end.

Answer 2

begin

 var (a, b) := ReadReal2;

 if a + b > 35 then

   (a, b) := (a * 4, b * 4)

 else

   (a, b) := (a / 2, b / 2);

 Print(a, b)

end.

Язык - PascalABC.NET