zadach370.BAS

{* Задача370 *}

REM basic

' Найти и вывести все числа первой Сотни заканчивающися на 5


For i = 1 To 100
    a$ = STR$(i)
    If Mid$(a$, LEN(a$), 1) = "5" Then PRINT i
Next
End