Даны числа x и y. Вычеслить число z равное x+y если x<=y, и 1-x+y в противном случае

Question

Информатика

Победа

16 февраля, 05:03

Даны числа x и y. Вычеслить число z равное x+y если x<=y, и 1-x+y в противном случае

+2

Ответы (1)

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

Лида · Answer 1

Var x, y, z: integer;

begin

Write ('Введите x: ') ;

Read (x) ;

Write ('Введите y: ') ;

Read (y) ;

if x < = y then

z : = x + y

else

z : = 1 - x + y;

Write (z) ;

end.