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

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.

2

Ответы и объяснения

  • KGM
  • умный
2012-11-14T16:11:17+00:00

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.

2012-11-14T16:29:38+00:00

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.