Конвертировать с Pascal на C# - C# (182859)
Формулировка задачи:
Собственно сам код:
Заранее спасибо)
Листинг программы
- const DMAX=100;
- var
- N: integer;
- D: integer;
- K: integer;
- r: integer;
- c: array[1..DMAX-1] of integer;
- i: integer;
- imax: integer;
- begin
- for i:=1 to DMAX-1 do c[i]:=0;
- readln(N);
- for i:=1 to N do begin
- readln(D, K);
- r := K mod D;
- if r>0 then c[r]:=c[r]+1;
- end;
- imax:=1;
- for i:=2 to DMAX-1 do begin
- if c[i]>=c[imax] then imax:=i;
- end;
- if c[imax]=0 then imax:=0;
- writeln(imax);
- end.
Решение задачи: «Конвертировать с Pascal на C#»
textual
Листинг программы
- using System;
- class Convert
- {
- const int DMAX = 100;
- static void Main()
- {
- int N, D, K, r, i, imax;
- int[] c = new int[DMAX-1];
- string[] s;
- for ( i = 0; i < DMAX - 1; i++) c[i] = 0;
- N = Int32.Parse(Console.ReadLine());
- for (i = 0; i < N; i++)
- {
- s = Console.ReadLine().Split(null);
- D = Int32.Parse(s[0]);
- K = Int32.Parse(s[1]);
- r = K / D;
- if (r > 0) c[r] = c[r] + 1;
- }
- imax = 1;
- for (i = 2; i < DMAX - 1; i++) if (c[i] >= c[imax]) imax = i;
- if (c[imax] == 0) imax = 0;
- Console.WriteLine(imax);
- }
- }
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д