Найдите и выведите на экран количество двузначных чисел у которых…

Question

Найдите и выведите на экран количество двузначных чисел у которых при умножении на 3 сумма цифр кратна 5

Answer 1

52

one-two

09 марта 2023

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.

пользователи выбрали этот ответ лучшим

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: