Почта, телеграф, радио, телефон, телевизор, компьютер. Вроде так
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
Можно приступать к работе
Int c[6][6], p[2], index, buff;
p[0] = 0;
//заполняем массив рандомными числами от 0 до 10
for (int i = 0; i < 6; i++)
{
for (int j = 0; j < 6; j++)
{
c[i][j] = 0 + rand()%10; //заполнил рандомными числам от 0 до 10
}
}
//теперь проходим массив по столбцам и просчитываем их произведение
for (int j = 0; j < 6; j++)
{
for (int i = 0; i < 6; i++)
{
p[1] *= c[i][j]; //произведение столбца
}
//проверяем если произведение предыдущего столбца меньше
//то мы записываем индекс большего столбца
if (p[0] < p[1])
{
p[0] = p[1];
index = j;
}
}
//и собственно меняем наши столбцы местами
for (int i = 0; i < 6; i++)
{
buff = c[i][0];
c[i][0] = c[i][index];
c[i][index] = buff;
}
дальше с выводом и библиотеками думаю сам разберешься
1. 3 бита
2. <span>I=log(2)16=4 бита
3. </span>87,5 байт
4. Один бит - один символ, следовательно 8 бит=1 байт
Ответ:
Всего пирожков:719. В коробках:108. В кульках:171. В пакетах:440.