Составьте  программу для нахождения количества чисел, кратных 3
и 5 в интервале от 300 до 1000.

ну а у меня паскаль)

Excel программа, которая выводит количество чисел кратных 3, 5, 3и5Sub krat()S3 = 0S5 = 0S35 = 0For i = 300 To 1000          If i / 3 = Int(i / 3) Then          S3 = S3 + 1       End If        If i / 5 = Int(i / 5) Then          S5 = S5 + 1        End If       If i / 5 = Int(i / 5) And i / 3 = Int(i / 3) Then           S35 = S35 + 1        End IfNext iCells(2, 2) = S3Cells(3, 2) = S5Cells(4, 2) = S35End Sub

var k, numb, count:integer;beginfor k:= 300 to 1000 doif (k mod 3 = 0) and ( k mod 5 = 0) thencount:= count + 1;writeln(count);end.