Конвертировать с Pascal на C# - C# (182859)

Узнай цену своей работы

Формулировка задачи:

Собственно сам код:
Листинг программы
  1. const DMAX=100;
  2. var
  3. N: integer;
  4. D: integer;
  5. K: integer;
  6. r: integer;
  7. c: array[1..DMAX-1] of integer;
  8. i: integer;
  9. imax: integer;
  10. begin
  11. for i:=1 to DMAX-1 do c[i]:=0;
  12. readln(N);
  13. for i:=1 to N do begin
  14. readln(D, K);
  15. r := K mod D;
  16. if r>0 then c[r]:=c[r]+1;
  17. end;
  18. imax:=1;
  19. for i:=2 to DMAX-1 do begin
  20. if c[i]>=c[imax] then imax:=i;
  21. end;
  22. if c[imax]=0 then imax:=0;
  23. writeln(imax);
  24. end.
Заранее спасибо)

Решение задачи: «Конвертировать с Pascal на C#»

textual
Листинг программы
  1. using System;
  2. class Convert
  3. {
  4.     const int DMAX = 100;
  5.     static void Main()
  6.     {
  7.         int N, D, K, r,  i, imax;
  8.         int[] c = new int[DMAX-1];
  9.         string[] s;
  10.         for ( i = 0; i < DMAX - 1; i++) c[i] = 0;
  11.         N = Int32.Parse(Console.ReadLine());
  12.         for (i = 0; i < N; i++)
  13.         {
  14.             s = Console.ReadLine().Split(null);
  15.             D = Int32.Parse(s[0]);
  16.             K = Int32.Parse(s[1]);
  17.             r = K / D;
  18.             if (r > 0) c[r] = c[r] + 1;
  19.         }
  20.         imax = 1;
  21.         for (i = 2; i < DMAX - 1; i++) if (c[i] >= c[imax]) imax = i;
  22.         if (c[imax] == 0) imax = 0;
  23.         Console.WriteLine(imax);
  24.     }
  25. }

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

10   голосов , оценка 3.8 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Бесплатно
Оформите заказ и авторы начнут откликаться уже через 10 минут