Даны целые числа m и n.Если числа не равны,то заменить каждое из них одним и тем же числом 5, а если равны,то заменить числа нулями.
Ответы
Ответ дал:
0
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.
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.
Вас заинтересует
5 месяцев назад
5 месяцев назад
1 год назад
1 год назад
5 лет назад
5 лет назад
7 лет назад