Даны четыре действительных числа a, b, c, d. Если произведение abбольше произведения cd, то удвоить числа a и b, в противном случае удвоить числа c и d

Question

Информатика

Артема

6 октября, 05:59

Даны четыре действительных числа a, b, c, d. Если произведение abбольше произведения cd, то удвоить числа a и b, в противном случае удвоить числа c и d

+5

Ответы (1)

Знаете ответ на вопрос?

Венедикт · Answer 1

Program n1;

var a, b, c, d: real;

begin

readln (a, b, c, d) ;

if (a*b>c*d) then

begin

a:=a*2;

b:=b*2;

end else begin

c:=c*2;

d:=d*2;

end;

write (a,' ', b,' ', c,' ', d) ;

end.