Предмет: Информатика,
автор: Lhjg
ПРОГРАММИРОВАНИЕ (паскаль) помогите срочно пожалуйстаааа даны целые числа m и n если числа не равны,то заменить каждое из них одним и тем же числом,равном большему из исходных,а если равны,то
заменить числа нулями
Ответы
Автор ответа:
0
if m=n then begin
m:=0;
n:=0;
end else
if m>n then
n:=m
else m:=n;
m:=0;
n:=0;
end else
if m>n then
n:=m
else m:=n;
Похожие вопросы
Предмет: Английский язык,
автор: Hero0
Предмет: Математика,
автор: azizaidirov87
Предмет: Қазақ тiлi,
автор: ermekovas82
Предмет: Обществознание,
автор: Lox38
Предмет: География,
автор: polya02kamik