Ввести с клавиатуры два числа X и Y. Присвоить Z значение большего из них, если Х0.

Question

Информатика

Енюта

7 августа, 16:13

Ввести с клавиатуры два числа X и Y. Присвоить Z значение большего из них, если Х0.

+5

Ответы (1)

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

Радосвета · Answer 1

uses crt;

begin

x, y, z:integer;

readln (x, y) ;

if (x<0) then begin

if (x>y) then z:=x;

if (y>x) then z:=y;

end else begin

if (x>0) then begin

if (x>y) z:=y;

if (y>x) z:=x;

end;

write (z) ;

end.