{* Задача6 *}

REM basic

' Разработать программу нахождения и вывода

' на экран всех чисел, оканчивающихся на 5,

' и делящихся на 3, из диапазона чисел от 5 до 1000.


CLS
For i = 5 To 1000 Step 5
x = i Mod 3
If x = 0 Then PRINT i;
Next i
End