Я не экономист и не экстрасенс, так что если именно сама формула подсчета дохода неверна - меняйте сами, я ее просто нашла в интернете.
var
vklad, dohod, summa, stavka: real;
srok: integer;
begin
write('Величина вклада (р.) - ');
readln(vklad);
write('Срок вклада (дней) - ');
readln(srok);
write('Годовая процентная ставка (%) - ');
readln(stavka);
dohod := (vklad*stavka)/(100*365) * srok;
summa := vklad + dohod;
writeln('Доход: ', Trunc(dohod), ' р.', frac(dohod)*100:3:0, ' коп.');
writeln('Сумма по окончании срока вклада: ', Trunc(summa), ' р.', Frac(summa)*100:3:0, ' коп.');
<span>end.</span>
1.
var
a,k,i,c: integer;
begin
c:=0;
write('Введите количество чисел в последовательности: ');
readln(k);
for i := 1 to k do
begin
write('Введите число: ');
readln(a);
if (a mod 2 = 1) and (a mod 10 <> 1) then c:=c+1
end;
if c>0 then writeln('YES')
else writeln('NO')
end.
2.
var
a,k,i,c: integer;
begin
c:=0;
write('Введите количество чисел в последовательности: ');
readln(k);
for i := 1 to k do
begin
write('Введите число: ');
readln(a);
if (a mod 2 = 1) and (a mod 3 = 0) then c:=c+1
end;
writeln(c)
end.
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
Задача 1.
Считаем количество пикселей: 640*480.
Умножаем на 8 бит.
Получили Количество информации в битах.
Скорее всего, надо еще перевести в байты или килобайты, то есть разделить на 2^3 в первом случае или на 2^13 во втором.
Задача 2.
Считаем глубину кодирования цвета: 64 = 2^6, значит, 6 бит.
Считаем количество пикселей 32*32 = 2^10.
Перемножаем и переводим в байты, то есть делим на 8.