1.Если данное натурального число меньше 10, то прибавьте 10, иначе вычьте. Решить через Паскаль var, begin-end.

2. Дано трехзначное число. Верно ли, что его первая цифра меньше последней? Решить также. Помогите пожалуйста!

1

Ответы и объяснения

Лучший Ответ!
2014-03-13T08:14:22+00:00
 var
  x : integer;
begin
  read (x);
  if x < 10 then x := x + 10 else x := x - 1;
  write (x);
end.

var
  x : integer;
begin
  read (x);
  if x mod 10 > x div 100 then write ('Yes') else write ('No');
end.