Даны две переменные целого типа: A и B. Если их значения

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

Задать свой вопрос
1 ответ
Var
a,b,z:integer;
begin
writeln('введите A ,B через пробел');
readln(a, b);
if alt;gt;b then begin
if (agt;b) then begin
b:=a;
writeln
end
else begin
a:=b;
writeln('a= ',a,'b= ',b);
end;
end
else begin
a:=0;
b:=0;
writeln('a= ',a,'b= ',b);
end;
end.

незачто
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт