Решите задачку паскаль Дано 2 целых числа. Если они не равны, то заменить каждое из…

Question

72

Решите задачку паскаль Дано 2 целых числа. Если они не равны, то заменить каждое из них одним и так же равному большему. Если они равны, тозаменить нулями.

категория: информатика

ответить

в избранное ссылка

Знаете ответ?

seadevil · Accepted Answer

34

seadevil

08 апреля 2023

var a, b: integer; begin write ('a='); readln (a); write ('b='); readln (b); if a <> b then if a > b then b: =a else a: =b else begin a: =0; b: =0; end; writeln ('a=', a); writeln ('b=', b); readln; end.

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: