Question

Написать программу: Вывести сообщение "оценка 5" если (x+1)div(x-1) > a, иначе " Задача верна". А и Х вводятся с клавиатуры - целочисленные.

Answer 1

Ответ:

program qq;

 var a, x: integer;

begin

 writeln('Введите числа a и x');

 readln(a, x);

 if (x+1)div(x-1) > a then

   begin

     writeln('Оценка 5');

   end

 else

   begin

     writeln('Задача верна');

   end;

end.

Объяснение: