var day:integer;
begin
readln(day);
case day of
1..5: writeln('Рабочий день');
6: writeln('Суббота');
7: writeln('Воскресенье');
end;
end.
fpc 3.0.0
<em>#include <iostream></em>
<em>using namespace std;</em>
<em>int main()</em>
<em>{</em>
<em> unsigned int n;</em>
<em> cout <<"N = ";</em>
<em> cin >> n;</em>
<em> unsigned int sum = 2*(n-1)/2*n;</em>
<em> cout <<sum <<endl;</em>
<em> return 0;</em>
<em>}</em>
Для 16 (2^4)
640*480*4=1228800 бит=153600 байт
512*1024=524288 байт
524288 /153600=3
Для 256 (2^8)
640*480*8=2457600 бит=307200 байт
512*1024=524288 байт
524288 /307200=1
Varn, nine, one: integer;
begin
readln(n);
nine := 0;
one := 0;
while (n > 0) do
begin
if (n mod 10 = 1) then
inc(one)
else
if (n mod 10 = 9) then
inc(nine);n := n div 10;
end;
if (one = nine) then
writeln('Равны')
else
if (one > nine) then
writeln('Единиц больше')
else
writeln('Девяток больше');
<span>end.</span>
Для кодирования одного из 512 цветов требуется log(2)512 = 9 бит (2^9=512).
Объем одной страницы с текстом = 3000*2 байт = 6000 байт;
объем одной страницы с изображением = 400*240*9 бит = 400*240*9/8 байт = 108000 байт.
Пусть x - количество страниц с изображениями.
x*108000 + x*18*6000 = 216000
x*216 = 216
x = 1
Количество страниц в буклете = 1+18 = 19
