3の倍数または3がつく数

Question

Fortran90を使って、

整数を入力とし、整数が1以上100未満かつ、 3の倍数または3が付く数（1の位または10の位が3）の場合にだけ 入力された整数を表示するプログラムを作成せよ。

という問題を解いています。

mod関数を用いずにこの問題を解きたいです。

今自分で書いたところは、

implicit none
integer::x,a,b,n
read(,)x

if (1<=x.and.x<100) then

までで、ここから先が分かりません。
教えて頂けると幸いです。

Comments

[K_3578]

何がしたかったのか

[curehoney]

三の倍数と三のつく数で、バカになっちゃったんでしょう。