ПРОГРАММИРОВАНИЕ помогите срочноооо даны целые числа m и n если числа не равны,то заменить каждое из них одним и тем же числом,равном большему из исходных,а если равны,то
заменить числа нулями
заменить числа нулями
More Questions From This User See All
Answers & Comments
Verified answer
Var m,n:integer;begin
writeln('введите число m ');
readln(m);
writeln('введите число n ');
readln(n);
if (m<>n) then
begin
if (m<n) then begin m:=n; writeln(m,' ,',n); end
else begin n:=m; writeln(m,' ,',n); end;
end
else begin n:=0;m:=0; writeln(m,' ,',n);
end;
end.