Логин и пароль отак )))))))))))))
Чтобы успешно выполнить какую-либо работу или решение задачи нужно передать исполнителю полный набор исходных данных.
Var ma:array[1..10,1..6] of integer;
i,j,k:integer;
begin;
randomize;
writeln('Matrix:');
for i:=1 to 10 do
begin;
writeln;
for j:=1 to 6 do
begin;
ma[i,j]:=random(2);
write(ma[i,j]:4);
end;
end;
for j:=1 to 6 do
begin;
i:=4;
if ma[i,j]=0 then inc(k);
end;
writeln;
write('Result:',k);
<span>end.</span>
1. 2,048 кбайт
2. 416 бит
3. 120*10*8*800*600 = 4 608 000 000бит -> 576 000 000бит -> 576 000байт -> 576 мбайт
4.10*20=200 точек в изображении каждая точка несет в себе 1 бит информации <span>=> 200 бит в изображении
5. монитор</span>
"Да" надо заключить в 'Да'
А вообще, лучше использовать цифры. Например, 1 и 2, Да и Нет соответственно. А в выводе указать, "Введите 1 для подтверждения"