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

Question

Артамоха

15 июля, 09:36

+4

Ответы (1)

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

Аврам · Answer 1

Var a : integer;

Begin

Readln (A) ;

If (A div 10000 > (A mod 10) then A:=A*2 else A:=A*10;

Writeln (A) ;

end.