Var m : array[0..6] of Integer; i,k,N : Integer; Begin For i:=0 to 6 do m[i]:=0; Readln(N); k:=6; While N>0 do Begin If N>=Power(2,k) then Begin N:=N-Trunc(Power(2,k)); Inc(m[k]); end else Dec(k); end; For i:=0 to 6 do Writeln(Power(2,i),' ',m[i],' шт.'); end.
Еще вариант: Const NN = 7; money : array[1..7] of Integer = (1,2,4,8,16,32,64); Var m : array[1..NN] of Integer; i,k,N : Integer; Begin For i:=1 to NN do m[i]:=0; Readln(N); k:=NN; While N>0 do Begin If N>=money[k] then Begin N:=N-money[k]; Inc(m[k]); end else Dec(k); end; For i:=1 to NN do Writeln(money[i],' ',m[i],' шт.'); end.
Міжнаро́дний жіно́чий де́нь (англ. International Women's Day), повна назва Міжнаро́дний де́нь боротьби́ за права́ жіно́к і міжнаро́дний мир (рішенням ООН від 1977 року) — щорічне феміністське свято, символ боротьби за права людини для жінок, проти сексизму та гендерної нерівності, що відзначається 8 березня. Найзначніша з феміністичних дат.
Уперше відзначався 28 лютого 1909 року в США з ініціативи Соціалістичної партії Америки як «Національний день жінки». Наступного року, натхненні американським прикладом, учасниці Другої міжнародної соціалістичної жіночої конференції в Копенгагені вирішили щороку за зразком Міжнародного дня праці відзначати «День жінок», присвячений у першу чергу боротьбі за здобуття жінками виборчих прав . 19 березня 1911 року в Австро-Угорщині, Данії, Німеччині й Швейцарії уперше відбувся Міжнародний жіночий день, який протягом наступних кількох років відзначався в різні дні наприкінці лютого чи на початку березня . З початку 1920-х років у Радянському Союзі затвердилась дата 8 березня, оскільки саме в цей день 1917 року з демонстрації робітниць почалась Лютнева революція. Відтоді день відзначався переважно в країнах колишнього «радянського блоку» , доки його у 1967 році не взяли на озброєння феміністки другої хвилі . У 1977 році Генеральна Асамблея ООН запропонувала відзначати 8 березня «Міжнародний день боротьби за права жінок і міжнародний мир».
У деяких країнах, у яких відзначається день, жінкам дарують квіти та подарунки. Цей жест феміністки знаходять недоречним, оскільки вважають, що день повинен привернути увагу до гендерної нерівності. У деяких країнах відзначається подібно до західноєвропейських свят — Дня матері й Дня Валентина. Окремі діячі православної церкви і деяких інших релігійних спільнот світу не визнають Міжнародний жіночий день з огляду на його «політичне походження».
i,k,N : Integer;
Begin
For i:=0 to 6 do m[i]:=0;
Readln(N);
k:=6;
While N>0 do
Begin
If N>=Power(2,k) then
Begin
N:=N-Trunc(Power(2,k));
Inc(m[k]);
end else Dec(k);
end;
For i:=0 to 6 do Writeln(Power(2,i),' ',m[i],' шт.');
end.
Еще вариант:
Const
NN = 7;
money : array[1..7] of Integer = (1,2,4,8,16,32,64);
Var m : array[1..NN] of Integer;
i,k,N : Integer;
Begin
For i:=1 to NN do m[i]:=0;
Readln(N);
k:=NN;
While N>0 do
Begin
If N>=money[k] then
Begin
N:=N-money[k];
Inc(m[k]);
end else Dec(k);
end;
For i:=1 to NN do Writeln(money[i],' ',m[i],' шт.');
end.
Міжнаро́дний жіно́чий де́нь (англ. International Women's Day), повна назва Міжнаро́дний де́нь боротьби́ за права́ жіно́к і міжнаро́дний мир (рішенням ООН від 1977 року) — щорічне феміністське свято, символ боротьби за права людини для жінок, проти сексизму та гендерної нерівності, що відзначається 8 березня. Найзначніша з феміністичних дат.
Уперше відзначався 28 лютого 1909 року в США з ініціативи Соціалістичної партії Америки як «Національний день жінки». Наступного року, натхненні американським прикладом, учасниці Другої міжнародної соціалістичної жіночої конференції в Копенгагені вирішили щороку за зразком Міжнародного дня праці відзначати «День жінок», присвячений у першу чергу боротьбі за здобуття жінками виборчих прав . 19 березня 1911 року в Австро-Угорщині, Данії, Німеччині й Швейцарії уперше відбувся Міжнародний жіночий день, який протягом наступних кількох років відзначався в різні дні наприкінці лютого чи на початку березня . З початку 1920-х років у Радянському Союзі затвердилась дата 8 березня, оскільки саме в цей день 1917 року з демонстрації робітниць почалась Лютнева революція. Відтоді день відзначався переважно в країнах колишнього «радянського блоку» , доки його у 1967 році не взяли на озброєння феміністки другої хвилі . У 1977 році Генеральна Асамблея ООН запропонувала відзначати 8 березня «Міжнародний день боротьби за права жінок і міжнародний мир».
У деяких країнах, у яких відзначається день, жінкам дарують квіти та подарунки. Цей жест феміністки знаходять недоречним, оскільки вважають, що день повинен привернути увагу до гендерної нерівності. У деяких країнах відзначається подібно до західноєвропейських свят — Дня матері й Дня Валентина. Окремі діячі православної церкви і деяких інших релігійних спільнот світу не визнають Міжнародний жіночий день з огляду на його «політичне походження».