Модифицируйте программу паскаля таким образом, чтобы она в случае ввода одинаковых чисел выдавала сообщение: "Числа равны!"

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.

Question

Информатика

Ануся

1 декабря, 21:45

Модифицируйте программу паскаля таким образом, чтобы она в случае ввода одинаковых чисел выдавала сообщение: "Числа равны!"

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.

+5

Ответы (2)

Знаете ответ на вопрос?

Ниноня · Answer 1

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.

Лера · Answer 2

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.