Ответы
Ответ дал:
0
x, y, z: integer;
begin
write('x y? ');
readln(x, y);
if x < 0 then
if x > y then z := x else z := y
else
if x < y then z := x else z := y;
write('z: ', z);
begin
write('x y? ');
readln(x, y);
if x < 0 then
if x > y then z := x else z := y
else
if x < y then z := x else z := y;
write('z: ', z);
Вас заинтересует
1 год назад
2 года назад
2 года назад
3 года назад
8 лет назад