Дано трехзначное число. Определить какая из его цифр больше, первая или вторая. ПОМОГИТЕ С ПАСКАЛЕМ СРОЧНО ДАЮ 45 БАЛЛОВ
Ответ:
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;
if a>b then writeln('Первая цифра >')
else writeln('Вторая цифра больше');
end.
Объяснение: