Уйуфенщ уюйумеойс
юФП ДЕМБЕФ ДБООБС РТПЗТБННБ? пРЙЫЙФЕ ОБЪОБЮЕОЙЕ РЕТЕНЕООЩИ (езь_20).
var x, L, M: integer; begin readln(x); L:=0; M:=0; while x > 0 do begin L:= L + 1; M:= M + x mod 10; x:= x div 10; end; writeln(L); write(M); end. | L – ЛПМЙЮЕУФЧП ГЙЖТ ДЕУСФЙЮОПЗП ЮЙУМБ M – УХННБ ГЙЖТ ДЕУСФЙЮОПЗП ЮЙУМБ | |
var x, L, M: integer; begin readln(x); L:=0; M:=0; while x > 0 do begin L:= L + 1; if x mod 2 = 0 then M:= M + x mod 6; x:= x div 6; end; writeln(L); write(M); end. | L – ЛПМЙЮЕУФЧП ГЙЖТ ЫЕУФЕТЙЮОПЗП ЮЙУМБ M – УХННБ ЮЕФОЩИ ГЙЖТ ЫЕУФЕТЙЮОПЗП ЮЙУМБ | |
var x, L, M: integer; begin readln(x); L:=0; M:=0; while x > 0 do begin L:= L + 1; if x mod 2 = 0 then M:= M + (x mod 10) div 2; x:= x div 10; end; writeln(L); write(M); end. | L – ЛПМЙЮЕУФЧП ГЙЖТ ДЕУСФЙЮОПЗП ЮЙУМБ M – РПМХ УХННБ ЮЕФОЩИ ГЙЖТ ДЕУСФЙЮОПЗП ЮЙУМБ | |
var x, L, M: integer; begin readln(x); L:=0; M:=0; while x > 0 do begin L:=L+1; if M < x then M:=x mod 10; x:= x div 10; end; writeln(L); write(M); end. | L – ЛПМЙЮЕУФЧП ГЙЖТ ДЕУСФЙЮОПЗП ЮЙУМБ M – ОБЙВПМШЫБС ГЙЖТБ ЙЪ РЕТЧЩИ ДЧХИ |
var x, a, b: integer; begin readln(x); a:=0; b:=1; while x>0 do begin a:=a+1; b:=b*(x mod 10); x:= x div 10; end; writeln(a); write(b); end. | a – ЛПМЙЮЕУФЧП ГЙЖТ ДЕУСФЙЮОПЗП ЮЙУМБ b – РТПЙЪЧЕДЕОЙЕ ГЙЖТ ДЕУСФЙЮОПЗП ЮЙУМБ | |
var x, a, b: integer; begin readln(x); a:= 0; b:= 1; while x > 0 do begin a:= a + 1; b:= b * (x mod 8); x:= x div 8; end; writeln(a); write(b); end. | a – ЛПМЙЮЕУФЧП ГЙЖТ ЧПУШНЕТЙЮОПЗП ЮЙУМБ b – РТПЙЪЧЕДЕОЙЕ ГЙЖТ ЧПУШНЕТЙЮОПЗП ЮЙУМБ | |
var x, L, M: integer; begin readln(x); L:=0; M:=9; while x > 5 do begin L:= L + 1; if M > (x mod 10) then M:= x mod 10; x:= x div 10; end; writeln(L); write(M); end. | L – ЛПМЙЮЕУФЧП ГЙЖТ ДЕУСФЙЮОПЗП ЮЙУМБ, ЕУМЙ РЕТЧБС ГЙЖТБ 6, 7, 8, 9. йОБЮЕ ОБ 1 НЕОШЫЕ M – ОБЙНЕОШЫБС ГЙЖТБ ДЕУСФЙЮОП ЮЙУМБ, ЕУМЙ РЕТЧБС ГЙЖТБ 6, 7, 8, 9. йОБЮЕ ОБЙНЕОШЫБС, ОЕ ЧЛМАЮБС РЕТЧХА. | |
var N, q, i: integer; begin read(N); for i:=1 to N-1 do begin if N mod i = 0 then q:=i end; write(q) end. | q – ОБЙВПМШЫЙК ДЕМЙФЕМШ N, ПФМЙЮОЩК ПФ N | |
var x, a, b, c: integer; begin readln(x); a:= 0; b:= 10; while x>0 do begin c:= x mod 10; a:= a+c; if c<b then b:= c; x:= x div 10; end; writeln(a); write(b); end. | a – УХННБ ГЙЖТ ДЕУСФЙЮОПЗП ЮЙУМБ b – ОБЙНЕОШЫБС ГЙЖТБ |
var x, a, b, c: integer; begin readln(x); a:= 0; b:= 0; while x > 0 do begin c:= x mod 2; if c = 0 then a:= a + 1 else b:= b + 1; x:= x div 10; end; writeln(a); writeln(b); end. | a – ЛПМЙЮЕУФЧП ЮЕФОЩИ ГЙЖТ b – ЛПМЙЮЕУФЧП ОЕЮЕФОЩИ ГЙЖТ |
Езь_16
1. ч УЙУФЕНЕ УЮЙУМЕОЙС У ОЕЛПФПТЩН ПУОПЧБОЙЕН ЮЙУМП 12 ЪБРЙУЩЧБЕФУС Ч ЧЙДЕ 110. хЛБЦЙФЕ ЬФП ПУОПЧБОЙЕ. пФЧЕФ: 3
2. ч УЙУФЕНЕ УЮЙУМЕОЙС У ОЕЛПФПТЩН ПУОПЧБОЙЕН ДЕУСФЙЮОПЕ ЮЙУМП 129 ЪБРЙУЩЧБЕФУС ЛБЛ 1004. хЛБЦЙФЕ ЬФП ПУОПЧБОЙЕ. пФЧЕФ: 5
3. хЛБЦЙФЕ ЮЕТЕЪ ЪБРСФХА Ч РПТСДЛЕ ЧПЪТБУФБОЙС ЧУЕ ПУОПЧБОЙС УЙУФЕН УЮЙУМЕОЙС, Ч ЛПФПТЩИ ЪБРЙУШ ЮЙУМБ 22 ПЛБОЮЙЧБЕФУС ОБ 4. пФЧЕФ: 6,9,18
4. хЛБЦЙФЕ ЮЕТЕЪ ЪБРСФХА Ч РПТСДЛЕ ЧПЪТБУФБОЙС ЧУЕ ПУОПЧБОЙС УЙУФЕН УЮЙУМЕОЙС, Ч ЛПФПТЩИ ЪБРЙУШ ЮЙУМБ 39 ПЛБОЮЙЧБЕФУС ОБ 3. пФЧЕФ: 4,6,9,12,18,36
5. хЛБЦЙФЕ ЮЕТЕЪ ЪБРСФХА Ч РПТСДЛЕ ЧПЪТБУФБОЙС ЧУЕ ПУОПЧБОЙС УЙУФЕН УЮЙУМЕОЙС, Ч ЛПФПТЩИ ЪБРЙУШ ЮЙУМБ 63 ПЛБОЮЙЧБЕФУС ОБ 23. пФЧЕФ: 5,30
6. хЛБЦЙФЕ ЮЕТЕЪ ЪБРСФХА Ч РПТСДЛЕ ЧПЪТБУФБОЙС ЧУЕ ПУОПЧБОЙС УЙУФЕН УЮЙУМЕОЙС, Ч ЛПФПТЩИ ЪБРЙУШ ЮЙУМБ 75 ПЛБОЮЙЧБЕФУС ОБ 13. пФЧЕФ: 8,72
7. хЛБЦЙФЕ ЮЕТЕЪ ЪБРСФХА Ч РПТСДЛЕ ЧПЪТБУФБОЙС ЧУЕ ДЕУСФЙЮОЩЕ ЮЙУМБ, ОЕ РТЕЧПУИПДСЭЙЕ 26, ЪБРЙУШ ЛПФПТЩИ Ч ФТПЙЮОПК УЙУФЕНЕ УЮЙУМЕОЙС ПЛБОЮЙЧБЕФУС ОБ 22? пФЧЕФ: 8,17,26
8. хЛБЦЙФЕ ЮЕТЕЪ ЪБРСФХА Ч РПТСДЛЕ ЧПЪТБУФБОЙС ЧУЕ ДЕУСФЙЮОЩЕ ЮЙУМБ, ОЕ РТЕЧПУИПДСЭЙЕ 30, ЪБРЙУШ ЛПФПТЩИ Ч ЮЕФЧЕТЙЮОПК УЙУФЕНЕ УЮЙУМЕОЙС ПЛБОЮЙЧБЕФУС ОБ 31? пФЧЕФ: 13,29
9. хЛБЦЙФЕ, УЛПМШЛП ЧУЕЗП ТБЪ ЧУФТЕЮБЕФУС ГЙЖТБ 3 Ч ЪБРЙУЙ ЮЙУЕМ 19, 20, 21, …, 33 Ч УЙУФЕНЕ УЮЙУМЕОЙС У ПУОПЧБОЙЕН 6. пФЧЕФ: 8
10. хЛБЦЙФЕ, УЛПМШЛП ЧУЕЗП ТБЪ ЧУФТЕЮБЕФУС ГЙЖТБ 1 Ч ЪБРЙУЙ ЮЙУЕМ 12, 13, 14, …, 31 Ч УЙУФЕНЕ УЮЙУМЕОЙС У ПУОПЧБОЙЕН 5. пФЧЕФ: 13
11. хЛБЦЙФЕ ОБЙНЕОШЫЕЕ ПУОПЧБОЙЕ УЙУФЕНЩ УЮЙУМЕОЙС, Ч ЛПФПТПК ЪБРЙУШ ЮЙУМБ 70 ФТЈИЪОБЮОБС. пФЧЕФ: 5
12. хЛБЦЙФЕ ОБЙНЕОШЫЕЕ ПУОПЧБОЙЕ УЙУФЕНЩ УЮЙУМЕОЙС, Ч ЛПФПТПК ЪБРЙУШ ЮЙУМБ 50 ДЧХЪОБЮОБ. пФЧЕФ: 8
13. ъБРЙУШ ЮЙУМБ 281 Ч УЙУФЕНЕ УЮЙУМЕОЙС У ПУОПЧБОЙЕН N УПДЕТЦЙФ 3 ГЙЖТЩ Й ПЛБОЮЙЧБЕФУС ОБ 1. юЕНХ ТБЧОП НБЛУЙНБМШОП ЧПЪНПЦОПЕ ПУОПЧБОЙЕ УЙУФЕНЩ УЮЙУМЕОЙС? пФЧЕФ: 14
14. ъБРЙУШ ЮЙУМБ 234 Ч УЙУФЕНЕ УЮЙУМЕОЙС У ПУОПЧБОЙЕН N УПДЕТЦЙФ 3 ГЙЖТЩ Й ПЛБОЮЙЧБЕФУС ОБ 6. юЕНХ ТБЧОП ПУОПЧБОЙЕ УЙУФЕНЩ УЮЙУМЕОЙС? пФЧЕФ: 12
Ъбдбюй йфнп убнпуфпсфемшоп
ЛМ
ЪБДБЮБ (3 ВБММБ)
лБЛЙЕ ЙЪ РТЙЧЕДЕООЩИ ОЙЦЕ ЮЙУЕМ, ЪБРЙУБООЩИ Ч ЫЕУФЕТЙЮОПК УЙУФЕНЕ УЮЙУМЕОЙС, ВХДХФ ДЕМЙФШУС ОБ 5 ВЕЪ ПУФБФЛБ.
1. 1234543216
2. 234523456
3. 1414141416
4. 1231231236
5. 112233446
ПФЧЕФ: 1, 5
ТЕЫЕОЙЕ: ЕУМЙ УХННБ ГЙЖТ ЮЙУМБ ДЕМЙФУС ОБ 5, ФП Й УБНП ЮЙУМП ДЕМЙФУС ОБ 5.
тБУУНПФТЙН РТЙНЕТ 12346 = 1*63+2*62+3*6+4 = 1*(555+1)+2*(55+1)+3*(5+1)+4 = (555+55+5)+(1+2+3+4)
ЧЙДОП, ЮФП РЕТЧБС УХННБ ЧУЕЗДБ ДЕМЙФУС ОБ 5, Б ЧФПТБС РТЕДУФБЧМСЕФ УПВПК УХННХ ГЙЖТ.
ЪБДБЮБ (2 ВБММБ)
уЛПМШЛП УХЭЕУФЧХЕФ ОБФХТБМШОЩИ ЮЙУЕМ, НЕОШЫЙИ 25610, ФБЛЙИ, ЮФП Ч ЪБРЙУЙ ЛБЦДПЗП ЮЙУМБ Ч ДЧПЙЮОПК УЙУФЕНЕ УЮЙУМЕОЙС ВХДЕФ ТБЧОПЕ ЛПМЙЮЕУФЧП ЕДЙОЙГ Й ЪОБЮБЭЙИ ОХМЕК. ч ПФЧЕФЕ ХЛБЦЙФЕ ГЕМПЕ ЮЙУМП.
ПФЧЕФ: 49
тЕЫЕОЙЕ: x<=111111112
1******* РЕТЧБС ЕДЙОЙГБ
чФПТБС НПЦЕФ ЪБОСФШ МАВПА ЙЪ 7 РПЪЙГЙК, ФТЕФШС МАВХА ЙЪ 6 ПУФБЧЫЙИУС, ЮЕФЧЕТФБС МАВХА ЙЪ 5 ПУФБЧЫЙИУС: 7*6*5 оП ПОЙ ОЕ ТБЪМЙЮБАФУС, ЧУЕЗП 6 ЧБТЙБОФПЧ, Ф.П. 7*6*5/6=35
ыЕУФЙЪОБЮОЩЕ 1***** 5*4/2=10
юЕФЩТЕИЪОБЮОЩК 1*** 3
дЧХЪОБЮОЩЕ 10 1
йФПЗП 35+10+3+1=49
рпдзпфпчлб чпы рп йожптнбфйле (ылпмшощк фхт)
https://informatics.mccme.ru
ъБДБЮБ № 2813 лТХЗМЩЕ ЮЙУМБ
лТХЗМЩЕ ЮЙУМБ. вХДЕН ОБЪЩЧБФШ ЮЙУМБ ЛТХЗМЩНЙ, ЕУМЙ ПОЙ УПДЕТЦБФ Ч УЧПЕК ЪБРЙУЙ ФПМШЛП ГЙЖТЩ 0 Й 5. уПУФБЧЙН РПУМЕДПЧБФЕМШОПУФШ ОЕПФТЙГБФЕМШОЩИ ГЕМЩИ ЛТХЗМЩИ ЮЙУЕМ Ч РПТСДЛЕ ЧПЪТБУФБОЙС: 0, 5, 50, 55, 500, 505 Й ФБЛ ДБМЕЕ.
оБРЙУБФШ РТПЗТБННХ, ЛПФПТБС ОБИПДЙФ K -Е РП РПТСДЛХ Ч ЬФПК РПУМЕДПЧБФЕМШОПУФЙ ЛТХЗМПЕ ЮЙУМП.
Var
number: integer;
binary: string;
Begin
read(number);
number -= 1;
binary:='';
while number > 0 do
Begin
binary:= IntToStr(number mod 2) + binary;
number:= number div 2;
end;
for var i:= 1 to length(binary) do
if binary[i] = '1' then binary[i]:= '5';
if binary = '' then binary:= '0';
write(binary);
end.
ъБДБЮБ №1367. йЪ ЫЕУФОБДГБФЕТЙЮОПК Ч ДЧПЙЮОХА
оЕПВИПДЙНП РЕТЕЧЕУФЙ ЮЙУМП ЙЪ ЫЕУФОБДГБФЕТЙЮОПК УЙУФЕНЩ УЮЙУМЕОЙС Ч ДЧПЙЮОХА.
Var
hex, binary: string;
translation: array [0..15] of string:= ('0000', '0001', '0010', '0011', '0100', '0101', '0110', '0111', '1000', '1001', '1010', '1011', '1100', '1101', '1110', '1111');
Begin
read(hex);
for var i:= 1 to length(hex) do
if (hex[i] >= '0') and (hex[i] <= '9') then binary += translation[StrToInt(hex[i])]
else if (hex[i] >= 'A') and (hex[i] <= 'F') then binary += translation[Ord(hex[i]) - 65 + 10];
write(binary)
end.