Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 15.01.2017 05:03
- Информатика
- remove_red_eye 13877
- thumb_up 48
Ответы и объяснения 1
3)var ar:array of integer;
s:string;
oldnum,oldmd,i,j,m,bug,md,num:integer;
begin;
oldnum:=0;
oldmd:=0;
readln(m);
str(m,s);
setlength(ar,length(s)+1);
for i:=1 to length(s) do
val(s[i],ar[i],bug);
for i:=0 to length(s) do
begin;
md:=ar[i];
num:=0;
for j:=i+1 to length(s) do
begin;
if md=ar[j] then inc(num);
if num>oldnum then
begin;
oldmd:=md;
oldnum:=num;
end;
end;
end;
writeln('Result:',oldmd);
end.
2)var n,m,i,d:integer;
begin;
readln(n);
readln(m);
for i:=1 to n-1 do
if (n mod i=0) and (i
end.
- 16.01.2017 09:02
- thumb_up 1
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.