Question

Дано целое четырехзначное число N.Если первая цифра числа больше, чем последняя, то увеличить число в 2 раза иначе увеличить число в 10.
написать програму (паскаль)

Answer 1

Var A:integer;
Begin
Write('Введите четырёхзначное число: ');ReadLn(A);
if A div 1000 > A mod 10 then A:=A*2
else A:=A*10;
WriteLn(A)
End.