< >

.Даны две переменные целого типа: A и B. Если их значения не равны, то присвоить каждой переменной большее из этих значений, а если равны, то присвоить переменным нулевые значения. Вывести новые значения переменных A и B.

Ответы

Ответ дал: катюшка2401
0

PrograBID(БОЛЬШЕЕ ИЗ 2-Х ЧИСЕЛ);

var a,b,c:integer;

 begin

 readln(a,b);

 if a>b

 then c:= a

 else c:=b;

writeln(c);

end

Похожие вопросы
Английский язык
2 года назад
Нужен текст "Как я встретила новый год"Не большой с переводом)на английском.
Русский язык
2 года назад
 Составьте предложения, характерные для официально-делового стиля. Используйте следующие отыменные предлоги:- Во избежание…- На основании…
Физика
7 лет назад
157 задача, есть рисунок на втором фото. Помогите пожалуйста решить, срочно!
Алгебра
7 лет назад
Сократите дробь: (x-36)/(√x+6).
Биология
10 лет назад
Рассмотрите на рисунке, как видоизменен побег шиповника. В письменном виде объясните причину. Пожалуйста помогите...спасибо большое за ответы
Математика
10 лет назад
найди три числа,если известно, что первое число относится ко второму ка 4:3, второе к третьему как 9:5, а разность первого и третьего равна 2,1
География
10 лет назад
Назовите страны,которые не могут полностью обеспечить себя энергетическими и сырьевыми ресурсами.Существуют ли пути выходу из этого сложного положения?
Геометрия
10 лет назад
На рисунке изображён график функции у=-х2+4. Какие из данных прямых не имеют с графиком этой функции ни одной общей точки? Укажите их номера.  1) у=х 2) у=х+5 3) у=4 4) х=-3 5) у=10