Сор по ивт номер 2 третья четветь ​

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.; int kratnoe = int.parse(console.; int howmuch = 0; for (i = 0; i < n; i++) {       if (n % kratnoe == 0)     {           howmuch++;     } } console.writeline(howmuch); console.readline();

Const n=4; m=5; var  a: array[1..n,1..m] of integer; i,j,k: integer; begin randomize; writeln('исходный массив: '); for i: =1 to n do   begin   for j: =1 to m do   begin     a[i,j]: =random(90)+10;     if a[i,j] mod 2 = 0 then a[i,j]: =a[i,j]+1;     write(a[i,j]: 4);   end;   writeln;   end; k: =0; for i: =1 to n do   for j: =1 to m do   if (a[i,j] div 10 + a[i,j] mod 10) = 7 then k: =k+1; writeln('k = ',k); end. пример: исходный массив:   41   31   85   25   11   71   29   55   43   79   87   67   23   97   27   55   55   25   69   35 k = 3