Блок-схема во вложении. Вот, если пригодится - программа
var
h,n:integer;
begin n:=1;
while h<=24 do
begin
h:=h+3;
n:=n*2;
end;
writeln(n);
<span>end.
</span>
16 = 2 в ст 4.
4 бита на 1 символ
1/16 МБ = 1024 * 1024 * 8 / 16 бит = 524288 бит
ответ 524288 / 4 = 131072 символов
1.
uses crt;
var x,y,z:integer;
begin
write('x:'); readln(x);
write('y:'); readln(y);
write('z:'); readln(z);
write('x*y*z=',x*y*z);
<span>end.
2.
uses crt;
var x:integer;
begin
write('Введите число:'); readln(x);
if x mod 7=0 then writeln('YES')
else writeln('NO');
<span>end.
3.
uses crt;
var n,x,sum:integer;
begin
write('N:'); readln(n);
sum:=0;
for x:=1 to N do
sum:=sum+x;
write(sum);
<span>end.</span></span></span>
Пусть р - это вероятность события при котором достается белый карандаш. Тогда 2^i=1/p
но i=4
p=1/16 - вероятность доставания белого карандаша
1/16=х/16 (х- кол-во белых)
Кол-во = 64/16=4 карандаша белого цвета
Во всех программах, если будешь использовать функцию scanf() или поток std::cin, то вывод всех элементов делай в другом цикле.