Помогите написать программу в Паскале.

Дано трёхзначное число N. Определить, какая из его цифр больше - первая или вторая. Если цифры одинаковы, то выдать об этом сообщение.

Question

Информатика

Дануся

11 июля, 01:49

Помогите написать программу в Паскале.

Дано трёхзначное число N. Определить, какая из его цифр больше - первая или вторая. Если цифры одинаковы, то выдать об этом сообщение.

+2

Ответы (1)

Знаете ответ?

Фока · Answer 1

Var

a, b:integer;

Begin

Write ('Введите трёхзначное число: ') ;

ReadLn (a) ;

b: = (a div 10) mod 10;

a:=a div 100;

if a > b then Write ('Первая цифра больше')

else if a < b then Write ('Вторая цифра больше')

else Write ('Первые две цифры равны')

End.