Вам известно точное название документа, например «гигиенические требования к персональным электронно-вычислительным машинам и организации работы». сформулируйте запрос для поиска в интернете полного текста документа.
Через Case : Var k:integer; Begin WriteLn('Введи число k'); ReadLn(k); if k in[11..19] then WriteLn('В букете ',k,' цветков') else Case k mod 10 of 1:WriteLn('В букете ',k,' цветок'); 2..4:WriteLn('В букете ',k,' цветка'); 0,5..9:WriteLn('В букете ',k,' цветков'); end End.
Через if :
Var k:integer; Begin WriteLn('Введи число k'); ReadLn(k); if k in[11..19] then WriteLn('В букете ',k,' цветков') else Begin if k=1 then WriteLn('В букете ',k,' цветок'); if k mod 10 in[2..4] then WriteLn('В букете ',k,' цветка'); if (k mod 10 in[5..9])or(k=0) then WriteLn('В букете ',k,' цветков'); end End.
1) Дано: k = 4096 сим. I = 3.5 Кбайт Найти N = ? Решение: N = 2^i I = k*i i = I/k 3.5 Кбайт = 3584 байт = 28672 бит i = 28672 / 4096 = 7 бит N = 2^7 = 128 символов
Документ «Гигиенические требования к персональным электронно-вычислительным машинам и организации работы».