Отправлено: 20.05.20 15:23. Заголовок: Задание 20 (B20) 10 номер

10. Ниже записан алгоритм. Сколько существует таких чисел x, при вводе которых алгоритм печатает сначала 2, а потом 12?
var x, a, b: integer;
begin
readln(x);
a := 0; b := 0;
while x>0 do begin
a := a + 1;
b := b + (x mod 100);
x := x div 100
end;
writeln(a); write(b)
end.

Впервые столкнулся с поиском подходящих X, как я понял программа проходит 2 раза по циклу и отсеивает каждый раз по 2 цифры, получается число X 4-значное ?
"B" накапливает в себе сумму остатков, в итоге равную 12. Дальше я не знаю что делать, был бы рад помощи...по сути 12 мы можем получить только 7 способами, и я так понимаю число X >100

 Отправлено: 20.05.20 16:03. Заголовок: То, что повтор был 2..

То, что повтор был 2 раза означает, что число было трёх или четырёхзначным, притом сумма остатков от деления на 100 должна быть 12.
Видятся мне числа 111, 210, 309, 408, 507, 606, 705, 804, 903, 1002, 1101, 1200.

 Отправлено: 20.05.20 16:13. Заголовок: Вы правы, спасибо бо..

Вы правы, спасибо большое