Program abc;
const
<span> n = 10;
</span>var
<span> m: array [1..n] of integer;
</span><span> i: integer;
</span>begin
<span> for i := 1 to n do
</span><span> begin</span><span> m[i] := sqr(i) - 1;
</span><span> writeln(m[i]);</span><span>
end;
</span><span>end.</span>
Ответ:
Объяснение:
Замечание: Там где int divisor = 1, должно быть 2
1. Если в палитре 256 цветов, то для хранения одного пикселя требуется log(2)256 = 8 бит (2^8 = 256). 16 Кбайт = 16*1024 байт = 16*1024*8 бит. Количество пикселей рисунка = 16*1024*8 / 8 = 16*1024
Размеры рисунка = (4*32)*(4*32) = 128*128
2. 1/16 Мбайт = 1024/16 Кбайт = 64 Кбайт = 64*1024 байт = 64*1024*8 бит. Память, занимаемая одним пикселем, = 64*1024*8 / (256*512) = 4 бита. Количество цветов в палитре = 2^4 = 16
3. 1/128 Гб = 1024/128 Мб = 8 Мб = 2^3 Мбайт = 2^3*2^10 Кбайт =
2^3*2^10*2^10 байт = 2^23 байт
819200 бит = 819200/8 байт = 102400 байт = 102400/1024 Кбайт =
100 Кбайт = 4*25 Кбайт = 2^2*25 Кбайт
Var pass,s:string; k:integer;
begin
pass:='12345';
k:=0;
repeat
writeln('Введите пароль:');
readln(s);
k:=k+1;
until (s=pass)or(k=3);
if s=pass
then writeln('Можно приступать к работе')
else writeln('Вызываю охрану');
end.
Пример:
Введите пароль:
1
Введите пароль:
12345
Можно приступать к работе
Зависит от языка и типизации, применённой в нём. По логике, будет возвращено вещественное число, потому что вещественный тип рассматривается как более широкий по отношению к целому, а деление на вещественное число подразумевает только операцию вещественного деления, а не целочисленного.