Я была в лесу летом. Там я собирала грибы. Было много деревьев и травы,кустов. В конце лета листья начинали опадать. Было очень тихо,слышно только пение птиц. Слышно как шуршит под ногами трава и ветки. Воздух свежий. В лесу очень хорошо отдохнуть,на природе!
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
Можно приступать к работе
// PascalABC.NET 3.1, сборка 1218 от 12.04.2016
begin
5.To(12).Tabulate(x->x*x+1).Println
end.
<u><em>Результат:</em></u>
(5,26) (6,37) (7,50) (8,65) (9,82) (10,101) (11,122) (12,145)
Поскольку код семибитный, то 1 символ занимает 7 бит, отсюда:
2000 символов*7 бит=14000 бит/8 (в 1 байте 8 бит) = 1750 байт
<u>Ответ: 1750 байт</u>