Var a: integer;
begin
readln(a);
if (a>5) then a:=a*2;
writeln(a);
readln();
end.
в двоичной системе это число записывается так: 10000. поэтому ответ: 4 нуля.
1) Создаешь папку BOX
2)В папке BOX папку LETTER
3) В папке LETTER создаешь текстовый документ peter.txt и kate.txt
4)В папке LETTER создаешь папку WORK
5) В папке WORK создаешь текстовый документ april.txt и may.txt
6)В папке LETTER создаешь папку FREND
7) В папке FREND создаешь папку SCHOOL
8) В папке SCHOOL создаешь текстовый документ mary.txt
9) В папке FREND создаешь текстовый документ sport.txt
const
n = 4; //кол-во людей
g = 1995;//год
m = 5; //номер месяца
var
i,gR,mR,k : integer;
begin
k := 0;
for i := 1 to n do
begin
writeln ('Введите год и месяц');
read (gR,mr);
if (gR = g) and (mr = m) then
k := k +1;
end;
writeln ();
writeln (k);<span>
end.</span>