Question

Пожалуйста, помогите с решением 7 ой задачи. Программу нужно написать в Паскале.

Answer 1

USES crt;VAR a,b,c: integer;begincls;repeatWRITE('Введите двухзначное число: '); READLN (a);until (a>=10)and(a<=99);b:=a div 10;c:=a mod 10;if b>c then writeln ('Первая цифра больше.');if b<c then writeln ('Вторая цифра больше.');if b=c then writeln ('Первая и вторая цифры равны.');END.

Answer 2

// PascalABC.NET 3.3, сборка 1576 от 16.11.2017
// Внимание! Если программа не работает, обновите версию!


Begin
var a:= ReadInteger('Введите двузначное число');
If a mod 10 > a div 10 then
  Writeln('Вторая цифра числа - больше')
else
  if a mod 10 < a div 10 then
    Writeln('Первая цифра числа - больше')
  else
    Writeln('Обе цифры равны');
end.