Предмет: Информатика,
автор: jeneasuper96
Даны две переменные целого типа: A и B. Если их значения не равны, то присвоить каждой переменной максимальное из этих значений, а если равны, то присвоить переменным нулевые значения.
Ответы
Автор ответа:
0
Program qq;
var a,b,max:integer;
begin
writeln('Введите а и б');
readln(a,b);
if a=b then
begin
a:=0;
b:=0;
end
else if a>b
then max:=a else max:=b;
begin a:=max;
b:=max;
end;
writeln(a:4,b:4);
end.
Интересные вопросы
Предмет: Русский язык,
автор: master10972
Предмет: Математика,
автор: misha6047
Предмет: Русский язык,
автор: hasuevam1983
Предмет: Математика,
автор: Sashashk
Предмет: Физика,
автор: мишаня8