Первая задача:** множестве чисел от 1 до 100 определить количество десятков во введенном...

Question

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

Comments

В простом виде на питонеa=int(input())print("%d десятков" % (a // 10 if not (a//100) else 0))

---

а, ну да, case. C++ чтоли?

---

Паскаль...

---

А что писать то до этого: a=int(input())print("%d десятков" % (a // 10 if not (a//100) else 0))???

---

Сейчас, поставлю fpcвозможно как-то такvar n : integer;beginwriteln('Введите n:');readln(n);case n of100: writeln('0 десятков');else:writeln(n/10,' десятков');end.

---

Спасибо большое

---

вряд ли будет работать, сейчас протестирую

---

Ок

---

var n : integer;beginwriteln('Введите n (от н до 100):');readln(n);case n of100: writeln('0 десятков');else writeln(n div 10,' десятков');end;end.Вот, вроде правильно

---

Спасибо, со второй попробую сам)

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