Question

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

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.

Answer 2

Спасибо огромное ! Там ещё у меня вопрос на задачу есть . если вам не трудно

Answer 3

http://znanija.com/task/15136192 помогите !!!!!)