Даны целые числа m и n.Если числа не равны,то заменить каждое из них одним и тем же ч?

Question

Даны целые числа m и n.Если числа не равны,то заменить каждое из них одним и тем же ч??слом 5, а если равны,то заменить числа нулями.

Гость

Ответ(ы) на вопрос:

Accepted Answer

Var m,n:integer; begin readln(a,b); if a<>b then begin a:=5; b:=5; end else begin a:=0; b:=0; end; writeln(a:3,b:3); end.