Знайти добуток всих натуральних двохзначних чисел у яких перша цифра вдвичи бильше другойи
Var p, i: integer; begin p:=1; for i:=10 to 99 do if (i div 10)=2* (i mod 10) then p:=p*i; writeln(p); end.
Короткая программа показывает очевидную вещь, что таких чисел - всего-навсего четыре: 21, 42, 63, 84, больше нет. Их произведение любезно сообщается, что будет 4667544.
Капитан Очевидность глумливо нагло ржёт, и утверждает, что он посчитал бы ответ на калькуляторе, перемножив четыре числа быстрее, чем я тыкал в кнопки набирая программу. Нет у него совести, у нахала.