|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
16.12.2019, 20:49 | #1 |
Регистрация: 12.01.2019
Сообщений: 6
|
Перевод на язык программирования си
Кто может перевести данную программу на язык си?
var N: integer; {количество чисел} a: integer; {очередное число} digit: integer; {цифра числа} d: array [0..9] of integer; {подсчёт цифр} dmx: integer; {самая частая цифра} i: integer; begin for i:=0 to 9 do d[i]:=0; readln(N); for i:=1 to N do begin readln(a); while a>0 do begin digit := a mod 10; d[digit] := d[digit]+1; a := a div 10; end; end; dmx := 0; for i:=1 to 9 do begin if d[i] >= d[dmx] then dmx := i; end; writeln(dmx); end. |
16.12.2019, 21:57 | #2 |
Старожил
Регистрация: 04.02.2011
Сообщений: 4,619
|
Я могу.
|
17.12.2019, 16:54 | #3 |
t45t
Участник клуба
Регистрация: 20.03.2012
Сообщений: 1,849
|
Код:
from dark to light)
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Перевод кода c языка Pascale в язык PHP или в язык JavaScript | Javlonka | JavaScript, Ajax | 1 | 30.09.2014 22:48 |
Язык программирования С | Mariolka | Помощь студентам | 11 | 15.12.2012 20:44 |
Язык программирования D | pproger | Общие вопросы по программированию, компьютерный форум | 2 | 24.05.2012 05:01 |