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

Question

Информатика

Варламий

25 февраля, 01:23

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

+5

Ответы (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.