рпдзпфпчлб чпы рп йожптнбфйле (ылпмшощк фхт)

Уйуфенщ уюйумеойс

юФП ДЕМБЕФ ДБООБС РТПЗТБННБ? пРЙЫЙФЕ ОБЪОБЮЕОЙЕ РЕТЕНЕООЩИ (езь_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 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


рпдзпфпчлб чпы рп йожптнбфйле (ылпмшощк фхт)

http://informatics.mccme.ru

ъБДБЮБ № 2813 лТХЗМЩЕ ЮЙУМБ

лТХЗМЩЕ ЮЙУМБ. вХДЕН ОБЪЩЧБФШ ЮЙУМБ рпдзпфпчлб чпы рп йожптнбфйле (ылпмшощк фхт) ЛТХЗМЩНЙ, ЕУМЙ ПОЙ УПДЕТЦБФ Ч УЧПЕК ЪБРЙУЙ ФПМШЛП ГЙЖТЩ 0 Й 5. уПУФБЧЙН РПУМЕДПЧБФЕМШОПУФШ ОЕПФТЙГБФЕМШОЩИ ГЕМЩИ ЛТХЗМЩИ ЮЙУЕМ Ч РПТСДЛЕ ЧПЪТБУФБОЙС: 0, 5, 50, 55, 500, 505 Й ФБЛ ДБМЕЕ.

оБРЙУБФШ РТПЗТБННХ, ЛПФПТБС ОБИПДЙФ K-Е РП РПТСДЛХ Ч ЬФПК РПУМЕДПЧБФЕМШОПУФЙ ЛТХЗМПЕ ЮЙУМП.

Var

number: integer;

binary: string;

Begin

read(number);

number -= 1;

binary:='';

whilenumber > 0 do

Begin

binary := IntToStr(number mod2) + binary рпдзпфпчлб чпы рп йожптнбфйле (ылпмшощк фхт);

number := number div2;

end;

for vari := 1 tolength(binary) do

ifbinary[i] = '1' thenbinary[i] := '5';

ifbinary = '' thenbinary := '0';

write(binary);

end.

ъБДБЮБ №1367. йЪ ЫЕУФОБДГБФЕТЙЮОПК Ч ДЧПЙЮОХА

оЕПВИПДЙНП РЕТЕЧЕУФЙ ЮЙУМП ЙЪ ЫЕУФОБДГБФЕТЙЮОПК УЙУФЕНЩ УЮЙУМЕОЙС Ч ДЧПЙЮОХА.

Var

hex, binary: string;

translation: array[0..15] ofstring := ('0000', '0001', '0010', '0011', '0100', '0101', '0110', '0111', '1000', '1001', '1010', '1011', '1100', '1101', '1110', '1111');

Begin

read(hex);

for vari := 1 tolength(hex) do

if(hex[i] >= '0') and(hex[i] <= '9') thenbinary += translation рпдзпфпчлб чпы рп йожптнбфйле (ылпмшощк фхт)[StrToInt(hex[i])]

else if(hex[i] >= 'A') and(hex[i] <= 'F') thenbinary += translation[Ord(hex[i]) - 65 + 10];

write(binary)

end.


rozenkrejceri-v-nashi-dni.html
rozha-svinej-peredaetsya-cheloveku.html
rozhdaemost-posobie-adresovano-studentam-istorikam-magistrantam-aspirantam-v-programmu-obucheniya-kotorih-vhodit.html