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

написать програму (паскаль)

Question

Петраха

8 февраля, 10:02

+2

Ответы (1)

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

Симоня · 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.

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