Question

Модифицируйте программу паскаля таким образом, чтобы она в случае ввода одинаковых чисел выдавала сообщение: "Числа равны!"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.

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

begin

  if A>B then writeln(A)

  else writeln(B);

end

else writeln ('числа равны');

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 writeln(A)

else

if B>A then writeln(B) else writeln('Числа равны!'); readln;

end.