Как составить эту программу вычисления чисел кратных не только 2 но и 3. var x,y: integer ; begin y: =0; for x: = 10 to 99 do if x mod 2=0 then y: =y+1; writeln ('количество чисел, кратных 2, равно ', y); end.

Program aliona; var n,k,i: integer; begin writeln('n='); readln(n);     k: =0; for i: =1 to n do if (i mod 2=0)and (i mod 3=0) then inc(k); writeln('k=',k); readln; end.

Using system; class program {     static void main()     {         var random = new random(datetime.now.millisecond);         int n = 3;         var f = new int[n, n];         int c;         console.writeline("f: ");         for (var i = 0; i < n; i++)         {             for (var j = 0; j < n; j++)             {                 f[i, j] = random.next(0, 9);                 console.write(f[i, j] + " ");             }             console.writeline();         }         console.writeline();         for(int i = 0; i < n; i++) {         if (f[i,0] ! = f[i,i]){         c = f[i,0]; f[i,0] = f[i,i]; f[i,i] = c;         }         }         console.writeline("new f: ");         for(int i = 0; i < n; i++){         for (var j = 0; j < n; j++)             console.write(f[i,j] + " ");         console.writeline();         }                 console.writeline();         console.readkey();     } } пример: f: 8 1 0 3 6 3 0 5 7   new f: 8 1 0 6 3 3 7 5 0