Помогите решить пожалуйста

Помогите решить пожалуйста

Задать свой вопрос
1 ответ

var a,b:integer;

begin

writeln('Введите значение a: ');

readln(a);

writeln('Введите значение b: ');

readln(b);

a:=абс(a);

b:=абс(b);

if bgt;a then

writeln(b,'gt;',a)

else

if agt;b then

writeln(a,'gt;',b);

end.

, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт