Question

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

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<A then WriteLn('Количество единиц больше')
     else WriteLn('Количества сотен и единиц равны')
End.