Помогите пожалуйста с диапазоном от 1 до n посчитать количество чисел кратных 3,11,13 ...

0 голосов
51 просмотров

Помогите пожалуйста
с диапазоном от 1 до n посчитать количество чисел кратных 3,11,13
задачи с циклами


Информатика (75 баллов) | 51 просмотров
Дан 1 ответ
0 голосов

Basic:

DIM n as integer, kratnoe, howMuch
INPUT "Введите N"; n
INPUT "Введите, чему должны быть кратны числа"; kratnoe
FOR i = 1 TO n
IF i MOD kratnoe = 0 THEN
howMuch = howMuch + 1
END IF
NEXT i
PRINT howMuch

C#:

int n = int.Parse(Console.ReadLine());
int kratnoe = int.Parse(Console.ReadLine());
int howMuch = 0;

for (i = 0; i < n; i++)
{
     if (n % kratnoe == 0)
    {
         howMuch++;
    }
}

Console.WriteLine(howMuch);
Console.ReadLine();
(1.4k баллов)