37

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

30 марта 2023

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

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



52

Program qq; var a,b,max: integer; begin writeln ('Введите а и б'); readln (a,b); if a=b thenbegin a: =0; b: =0; endelse if a>bthen max: =a else max: =b; begin a: =max; b: =max; end; writeln (a: 4,b: 4); end.

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


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