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

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

Question

Информатика

Липа

10 ноября, 16:21

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

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

+1

Ответы (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.написать програму (паскаль)

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

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