Question

Дано трехзначное число. Определить какая из его цифр больше, первая или вторая. ПОМОГИТЕ С ПАСКАЛЕМ
СРОЧНО ДАЮ 45 БАЛЛОВ

Answer 1

Ответ:

Program Pr1;

uses crt;

var a,b,c:integer;

Begin

clrscr;

readln(a);

c:=a mod 10;

a:=a div 10;

b:=a mod 10;

a:=a div 10;

if a>b then writeln('Первая цифра >')

else writeln('Вторая цифра больше');

end.

Объяснение: