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

Предыдущий
вопрос Следующий
вопрос

// Задача 1

Uses Crt;

var x:integer;

Begin

Clrscr;

Repeat {Вводим число в интервале [1;100)}

write('Введите число > ');

Readln (x);

until (x>0) and (x<100);

Case x div 10 of

0: write('0 десятков');

1: write('1 десяток');

2: write('2 десятка');

3: write('3 десятка');

4: write('4 десятка');

5: write('5 десятков');

6: write('6 десятков');

7: write('7 десятков');

8: write('8 десятков');

9: write('9 десятков');

end;

readln;

end.

// Задача 2

Uses Crt;

var x:integer;

Begin

Clrscr;

Repeat {Вводим число в интервале [10;100)}

Write('Введите двузначное число > ');

Readln (x);

until (x>9) and (x<100);

Repeat

inc(x);

until (x div 10 = x mod 10);

Write(x);

readln;

end.