Даны целые числа x, y, z. Найти максимальное из (x-y, x/y, z*x). x=2,

y=0.3, z=0.5. (Паскаль)

Буду признательна за ответ.

Question

Информатика

Ерофей

11 февраля, 04:54

Даны целые числа x, y, z. Найти максимальное из (x-y, x/y, z*x). x=2,

y=0.3, z=0.5. (Паскаль)

Буду признательна за ответ.

+5

Ответы (2)

Знаете ответ?

Пульхерия · Answer 1

program z1;

var

x, y, z, a, b, c:real;

begin

x:=2;

y:=0.3;

z:=0.5;

a:=x-y;

b:=x/y;

c:=z*x;

if a > b

then begin

if a < c

then write ('Наибольшее', c)

else write ('Наибольшее', a)

end;

else write ('Наибольшее', b) ;

end.

Елизавета · Answer 2

решение для данных чисел.

var x, y, z, a, b, c: real;

begin

x:=2;

y:=0.3;

z:=0.5;

a:=x-y;

b:=x/y;

c:=z*x;

write ('naibolshee x/y = ', b:2:1) ;

readln;

end.

Даны целые числа x, y, z. Найти максимальное из (x-y, x/y, z*x). x=2,y=0.3, z=0.5. (Паскаль)Буду признательна за ответ.

Даны целые числа x, y, z. Найти максимальное из (x-y, x/y, z*x). x=2,

y=0.3, z=0.5. (Паскаль)

Буду признательна за ответ.