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

Question

Витя

23 октября, 19:54

+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.