Задание:
Найдите и выведите на экран количество двузначных чисел у которых при умножении на 3 сумма цифр кратна 5
Решение:
Program p1; Uses crt; Var i: byte; kol: integer; Begin For i: =10 to 99 do if i*3 div 10<10 then if (i*3 mod 10)+(i*3 div 10) mod 5=0 then kol: =kol+1 else if (i*3 mod 10)+(i*3 div 10)+(i*3 div 100) mod 5=0 then kol: =kol+1; Writeln ('Количество чисел=',kol); End.
Знаете другой ответ?