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

Question

tysik

6 месяцев назад

8

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

Знания

Информатика

2 ответа:

Lyudmila K [2.5K] · Answer 1 · 2020-10-13T19:24:18+03:00

Lyudmila K [2.5K]6 месяцев назад

0 0

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

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.

Melsik [27] · Answer 2 · 2020-10-13T19:34:49+03:00

Melsik [27]6 месяцев назад

0 0

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.