Дано трёхзначное число. Что больше количество сотен или единиц? Паскаль. Составить программу

Question

Гиацинт

29 апреля, 05:32

+3

Ответы (1)

Знаете ответ на вопрос?

Илюня · Answer 1

Var

A, B:integer;

Begin

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

ReadLn (A) ;

B:=A div 100;

A:=A mod 10;

if B>A then WriteLn ('Количество сотен больше')

else if B
else WriteLn ('Количества сотен и единиц равны')

End.