81.липы,осины,берёзы.79.2 игрок.80.2кончая,3.коник,4.там просто стрелочка.1слово я не помню.
Var S:real;
Begin
Write('Введите сумму покупки: ');ReadLn(S);
Write('Сумма покупки с учётом скидки: ');
if S <= 1000 then WriteLn(S)
else if S > 10000 then WriteLn(S*0.8:0:2)
else WriteLn(S*0.9:0:2);
WriteLn('Без учёта скидки: ',S:0:2);
End.
1)
Var i:integer;
Begin
for i := 100 to 999 do
if (i mod 15 = 11) and (i mod 11 = 9)
then writeln(i);
End.
2)
Var i,n,s:integer;
Begin
read (n);
s := 1;
for i := 1 to n do
s := s * i;
write(s);
End.
3)
Var i,j,k:integer;
Begin
for i:=1 to 9 do
for j:=0 to 9 do
for k:=0 to 9 do
if i*i*i+j*j*j+k*k*k=i*100+j*10+k
then writeln(i*100+j*10+k);
End.
1) :
64 байта = 512 бит
0,2 КБ = 819,2 бит
1,05 байт = 8,4 бит
1 КБ = 8192 бит
2) :
16 бит = 2 байта
512 КБ = 524288 байт
240 бит = 30 байт
1,12 КБ = 1146,88 байт
N=16*32*64=32768 символов в одном досье.
Один символ в стандартной кодировке занимает 1 байт или 8 бит.
I=N*i=32768*1= 32768 байта/1024=32 Кб
V=8 МБ * 1024 = 8192 КБ
n=V/I=8192/32=256 сотрудников.
Ответ: 256