Var A,S:integer;
Begin
S:=0;
Repeat
Read(A);
if (A mod 6 = 0)and(A mod 10 = 6) then S:=S+A;
Until A = 0;
Write(S)
End.
Ответ:1)C:\Календарь\Декабрь.
1.Поднялся, оказался в C:\Календарь
2.2 раза опустился и оказался в <span>C:\Календарь\Зима\Январь\17\ (17 выделено с двух сторон, а значит это не каталог).</span>
7 процентов это твой ответ
450 битов:150 символов =3 бита , ответ: 1 символ = 3 бита