Опубликовано 4 года назад по предмету Информатика от asyakostinav

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

Ответ

Ответ дан v1248

Excel программа, которая выводит количество чисел кратных 3, 5, 3и5
Sub krat()
S3 = 0
S5 = 0
S35 = 0
For 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 If
Next i
Cells(2, 2) = S3
Cells(3, 2) = S5
Cells(4, 2) = S35
End Sub
Ответ

Ответ дан Mepkypuu

var k, numb, count:integer;
begin
for k:= 300 to 1000 do
if (k mod 3 = 0) and ( k mod 5 = 0) then
count:= count + 1;
writeln(count);
end.
1. Ответ
  
  Ответ дан Mepkypuu
  
  ну а у меня паскаль)

Самые новые вопросы

Другие предметы - 4 года назад

Сочинение-рассуждение. прочитайте текст. есть у меня внучка. однажды она говорит: — у веры в субботу день рождения. она

Другие предметы - 4 года назад

Л.н. толстой. как боролся русский богатырь как сказал иван о своей силе? найдите ответ в тексте. запишите.

История - 4 года назад

Кто такой мильтиад и какова его роль в победе над персами?

История - 4 года назад

Какие примеры н. м. карамзин использует для разъяснения пользы новой системы престолонаследия? согласны ли вы с позицией

География - 4 года назад

Дополните схему. она поможет вам лучше усвоить содержание §1.: 1 что изучает география 2 с помощью чего 3 зачем изучают