Решите задачку паскаль

Дано 2 целых числа. Если они не равны, то заменить каждое из них одним и так же равному большему. Если они равны, то заменить нулями.

Question

Информатика

Колюха

20 мая, 02:43

Решите задачку паскаль

Дано 2 целых числа. Если они не равны, то заменить каждое из них одним и так же равному большему. Если они равны, то заменить нулями.

+2

Ответы (1)

Знаете ответ на вопрос?

Натуля · Answer 1

var

a, b:integer;

begin

write ('a = ') ; readln (a) ;

write ('b = ') ; readln (b) ;

if a b then

if a > b then

b : = a

else

a : = b

else

begin

a : = 0;

b : = 0;

end;

writeln ('a = ', a) ;

writeln ('b = ', b) ;

readln;

end.

Решите задачку паскальДано 2 целых числа. Если они не равны, то заменить каждое из них одним и так же равному большему. Если они равны, то заменить нулями.

Решите задачку паскаль

Дано 2 целых числа. Если они не равны, то заменить каждое из них одним и так же равному большему. Если они равны, то заменить нулями.