Первая : на множестве чисел от 1 до 100 определить количество десятков во введенном пользователем числе. например: ввели 43, ответ "4 десятка", для 89 - "8 десятков". использовать case. вторая : пользователь вводит двузначное число. увеличивать его на 1 до тех пор, пока значения разрядов не совпадут. вывести результат. например: ввели 27, результат - 33. (repeat)
// Внимание! Если программа не работает, обновите версию!
№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