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

bryadovasg bryadovasg    3   22.07.2019 18:36    0

Ответы
irushkanet irushkanet  23.09.2020 17:59
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.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика