Модифицируйте программу паскаля таким образом, чтобы она в случае ввода одинаковых чисел выдавала сообщение: "Числа равны!" uses crt; var A,B:integer; begin TextColor(Blue); writeln(' меньше меньше меньше Нахождение максима...
Модифицируйте программу паскаля таким образом, чтобы она в случае ввода одинаковых чисел выдавала сообщение: "Числа равны!" uses crt; var A,B:integer; begin TextColor(Blue); writeln('<<<Нахождение максимального из двух целых чисел >>>' :50); writeln; write('Первое число= ? '); readln(A); write('второе число= ? '); readln(B); write('Максимальное из двух чисел '); if A>B then writeln(A) else writeln(B); end.
Гость
Ответ(ы) на вопрос:
Гостьuses crt; var A,B:integer; begin TextColor(Blue); writeln('<<<Нахождение максимального из двух целых чисел >>>' :50); writeln; write('Первое число= ? '); readln(A); write('второе число= ? '); readln(B); write('Максимальное из двух чисел '); if a <> b then begin if A>B then writeln(A) else writeln(B); end else writeln ('числа равны'); end.
Гостьuses crt; var A,B:integer; begin TextColor(Blue); writeln('<<<Нахождение максимального из двух целых чисел >>>' :50); writeln; write('Первое число= ? '); readln(A); write('второе число= ? '); readln(B); write('Максимальное из двух чисел '); if A>B then writeln(A) else if B>A then writeln(B) else writeln('Числа равны!'); readln; end.
Не нашли ответ?
Похожие вопросы