Даны две переменные целого типа: A и B. Если их значения не равны, то присвоить каждой переменной максимальное из этих значений, а если равны, то присвоить переменным нулевые значения.

Question

Информатика

Иосафат

9 ноября, 19:46

Даны две переменные целого типа: A и B. Если их значения не равны, то присвоить каждой переменной максимальное из этих значений, а если равны, то присвоить переменным нулевые значения.

+2

Ответы (1)

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

Иродион · Answer 1

Program qq;

v ar a, b, max:integer;

begin

writeln ('Введите а и б') ;

readln (a, b) ;

if a=b then

begin

a:=0;

b:=0;

end

else if a>b

then max:=a else max:=b;

begin a:=max;

b:=max;

end;

writeln (a:4, b:4) ;

end.