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.