Даны две переменные целого типа: A и B. Если их значения не равны, то присвоить каждо
Даны две переменные целого типа: A и B. Если их значения не равны, то присвоить каждой переменной максимальное из этих значений, а если равны, то присвоить переменным нулевые значения.Вывести новые значения переменных А и В.Сделать в алгоритме ветвления.
Гость
Ответ(ы) на вопрос:
Гость Var a,b:integer;
begin
write('a='); readln(a);
write('b='); readln(b);
if a=b then begin a:=0; b:=0; end
else if a>b then b:=a else a:=b;
writeln('a=',a,' b=',b);
end.
Пример:
a=3
b=5
a=5 b=5
Не нашли ответ?
Похожие вопросы