Количество кратных чисел от 2 до 99 числам от 2 до 9

В диапазоне натуральных чисел от 2 до 99 определить, сколько из них кратны любому из чисел в диапазоне от 2 до 9.

Необходимо проверить кратность каждого числа сначала числу 2, потом 3 и т.д. до 9 включительно. Введем массив с восьмью ячейками. В первую будем записывать количество чисел кратных 2, во вторую — 3 и т.д.

Записать в ячейки массива нули.
Перебирая числа от 2 до 99,
1. для каждого из них в цикле от 2 до 9
  1. проверять кратность числа внешнего цикла числу внутреннего.
  2. Если второе число делит нацело первое, значит увеличивать на 1 значение в соответствующей ячейке массива.
Вывести индексы и соответствующие им значения из массива.

Pascal

найти количество кратных чисел паскаль

var

a: array[2..9] of byte;

i,j: byte;

begin

for i:=2 to 9 do a[i] := 0;

for i:=2 to 99 do

for j:=2 to 9 do

if i mod j = 0 then

a[j] := a[j] + 1;

for i:=2 to 9 do

writeln(i,' - ', a[i]);

end

var a: array[2..9] of byte; i,j: byte; begin for i:=2 to 9 do a[i] := 0; for i:=2 to 99 do for j:=2 to 9 do if i mod j = 0 then a[j] := a[j] + 1; for i:=2 to 9 do writeln(i,' - ', a[i]); end



var

    a: array[2..9] of byte;

    i,j: byte;

begin

    for i:=2 to 9 do a[i] := 0;

    for i:=2 to 99 do

        for j:=2 to 9 do

            if i mod j = 0 then

                a[j] := a[j] + 1;

    for i:=2 to 9 do

        writeln(i,' - ', a[i]);

end

Язык Си

#include <stdio.h>

main() {

int a[8], i, j;

for (i=0; i<9; i++) a[i] = 0;

for (i=2; i<100; i++)

for (j=2; j<10; j++)

if (i%j == 0) a[j-2] += 1;

for (i=0; i<8; i++)

printf("%d - %d\n", i+2, a[i]);

}

</stdio.h>

#include <stdio.h> main() { int a[8], i, j; for (i=0; i<9; i++) a[i] = 0; for (i=2; i<100; i++) for (j=2; j<10; j++) if (i%j == 0) a[j-2] += 1; for (i=0; i<8; i++) printf("%d - %d\n", i+2, a[i]); } </stdio.h>



#include 

main() {

    int a[8], i, j;

    for (i=0; i<9; i++) a[i] = 0;

    for (i=2; i<100; i++)

        for (j=2; j<10; j++)

            if (i%j == 0) a[j-2] += 1;

    for (i=0; i<8; i++)

        printf("%d - %d\n", i+2, a[i]);

}

Python

найти количество кратных чисел Python

a = [0]*8

for i in range(2,100):

for j in range(2,10):

if i%j == 0:

a[j-2] += 1

i = 0

while i < len(a):

print(i+2, ' - ', a[i])

i += 1

a = [0]*8 for i in range(2,100): for j in range(2,10): if i%j == 0: a[j-2] += 1 i = 0 while i < len(a): print(i+2, ' - ', a[i]) i += 1



a = [0]*8

for i in range(2,100):

    for j in range(2,10):

        if i%j == 0:

            a[j-2] += 1

i = 0

while i < len(a):

    print(i+2, ' - ', a[i])

    i += 1

КуМир

алг кратность

нач

цел таб a[2:9]

цел j,i

нц для i от 2 до 9

a[i] := 0

кц

нц для j от 2 до 99

нц для i от 2 до 9

если mod(j,i) = 0 то a[i]:=a[i]+1 все

кц

нц для i от 2 до 9

вывод i, " - ", a[i], нс

кц

кон

алг кратность нач цел таб a[2:9] цел j,i нц для i от 2 до 9 a[i] := 0 кц нц для j от 2 до 99 нц для i от 2 до 9 если mod(j,i) = 0 то a[i]:=a[i]+1 все кц кц нц для i от 2 до 9 вывод i, " - ", a[i], нс кц кон



алг кратность

нач

  цел таб a[2:9]

  цел j,i

  нц для i от 2 до 9 

    a[i] := 0

  кц

  нц для j от 2 до 99 

    нц для i от 2 до 9

      если mod(j,i) = 0 то a[i]:=a[i]+1 все

    кц

  кц

  нц для i от 2 до 9 

    вывод i, " - ", a[i], нс

  кц

кон

Basic-256

dim a(8)

for i=2 to 99

for j=2 to 9

if i%j = 0 then

a[j-2] = a[j-2] + 1

endif

next j

next i

for i=0 to 7

print (i+2) + " - " + a[i]

next i

dim a(8) for i=2 to 99 for j=2 to 9 if i%j = 0 then a[j-2] = a[j-2] + 1 endif next j next i for i=0 to 7 print (i+2) + " - " + a[i] next i



dim a(8)

for i=2 to 99

	for j=2 to 9 

		if i%j = 0 then

			a[j-2] = a[j-2] + 1

		endif

	next j

next i

 

for i=0 to 7

	print (i+2) + " - " + a[i]

next i