Question

Первая задача:На множестве чисел от 1 до 100 определить количество десятков во введенном пользователем числе. Например: ввели 43, ответ "4 десятка", для 89 - "8 десятков". Использовать case.
Вторая задача: Пользователь вводит двузначное число. Увеличивать его на 1 до тех пор, пока значения разрядов не совпадут. Вывести результат. Например: ввели 27, результат - 33. (repeat)

Answer 1

// PascalABC.NET 3.3.5, сборка 1636 от 10.03.2018
// Внимание! Если программа не работает, обновите версию!

№1

begin
  var n:=ReadInteger;
  var d:=n div 10;
  case d of
  0,5..10:Writeln(d,' десятков');
  1:Writeln('1 десяток');
  2..4:Writeln(d,' десятка');
  else Writeln('Недопустимое число')
  end;
end.

Пример
42
4 десятка

№2

begin
  var n:=ReadInteger;
  if n mod 10 <> n div 10 then
  repeat
    n+=1
  until n mod 10 = n div 10;
  Writeln('Получено число ',n)
end.

Пример
37
Получено число 44