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
Можно приступать к работе
1) 192 Кбит/с= 192/8 Кбайт/с = 24 Кбайт/с;
2) 3600 Кбайт/с / 24 Кбайт/с = 150 секунд;
3)150 секунд= 150/60 минут = 2,5 минут.
<span>Ответ: 2,5 минут.</span>
Новый процессор(Например Intel Core i7 )
SSD диски вместо HDD ускоряют работу компьютера в разы.
Изменение персонализации компьютера.
Программы более стабильных версий.
11100(2) - 28 учеников
15(8) - 13 девочек
Мальчиков 28-13=15