Просмотр задания
Укажите наименьшее число х, при вводе которого алгоритм печатает сначала 3, потом 2, потом еще 2.

Var x, y, K, L, M: integer;
Begin
Readln (x);
K:=0;
L:=0;
M:=0;
While x>0 do
Begin
Y:=x mod 10;
K:=K+1;
If y mod 3 = 0 then
L:=L+1;
If y mod 5 = 0 then
M:=M+1;
X := x div 10;
End;

Writeln (K, ' ', L, ' ', M);
End.
Гость
18 февраля 2016
Ответы (1)
Информатик БУ # 19 февраля 2016 в 10:30 0
Каждый повтор цикла K увеличивается на 1, при этом от x отнимается один разряд. Значит K - количество разрядов в числе X, значит X - трёхзначное число.

Если проверяемый разряд числа кратен трём, то L увеличивается на 1, если кратен пяти - то M увеличивается на 1. Таким образом, в числе два разряда кратны трём, и два разряда кратны пяти.

Есть только одна цифра, кратная и трём, и пяти, это 0. Нужно наименьшее число, подходит 100.

Ответ: 100
Ответить
Перевести число из в Результат: 510 = 1012