var x: integer;
begin
write('X=');
readln(x);
if x mod 2=0 then
writeln('X является чётным числом');
else
writeln('X является нечётным числом');
end;
Для хранения 1 символа необходимо log(2)12 ≈ 4 бита
Для хранения 1 пароля необходимо 15*4 = 60 бит = 60/8 байт ≈ 8 байт
(оба раза выполняем округление до целого в большую сторону)
Для хранения 20 паролей используется 20*8 = 160 байт,
на дополнительные сведения остается 300-160 = 140 байт
Дополнительные сведения для одного пользователя требуют:
140/20 = 7 байт
6+1=7
7+1=8
8*2=16
16*2=32
32+1=33
Итого: 22112
5+1=6
6*2=12
12*2=24
Итого: 211
![y=\begin {cases} -3, \quad x \leq 0 \\ x, \quad 0\ \textless \ x \leq 1 \\ x^2, \quad x \ \textgreater \ 1 \end {cases}](https://tex.z-dn.net/?f=y%3D%5Cbegin+%7Bcases%7D+-3%2C+%5Cquad+x+%5Cleq+0+%5C%5C+x%2C+%5Cquad+0%5C+%5Ctextless+%5C+x+%5Cleq+1+%5C%5C+x%5E2%2C+%5Cquad+x+%5C+%5Ctextgreater+%5C+1+%5Cend+%7Bcases%7D)
var
x,y:real;
begin
Write('Введите число: '); Read(x);
if x<=0 then y:=-3
else
if x<=1 then y:=x else y:=sqr(x);
Writeln('y=',y)
end.
Язык: Паскаль
var t: byte;
begin
readln (t);
if (t<10) then
writeln ('Вы уже проснулись?');
if (t=12) then
writeln ('Не пора обедать?');
if (t>=18) then
writeln ('Ещё не вечер!')
else
writeln ('Как работается?')
end.