Информация уменьшилась в 6 раз(2^6), всего шаров 64
Var a,b,c:Integer;
begin
Read(a,b,c);
if (a<b) and (b<c) then
WriteLn('В порядке возрастания')
else if (a>b) and (b>c) then
WriteLn('В порядке убывания')
else
WriteLn('Нет');
<span>end.
</span>Нажимаем "лучший ответ"
Var S,K,A:integer;
Begin
S:=0;
K:=0;
A:=100;
Repeat
S:=S+A;
K:=K+1;
A:=A+10;
Until A>500;
WriteLn('SR = ',K*S);
End.
1. Выбор участка.
2. Выбор проекта.
3. Получение необходимых разрешений.
4. Выбор материалов.
5. Решение вопросов финансирования строительства.
6. Собственно, проектирование
7. Подготовка участка к
строительству.
8. Поиск исполнителей.
9. Нулевой цикл.
10. Заготовка лесоматериалов.
11. Подготовка строительных материалов из леса и завоз на участок.
12. Сборка стен.
13. Установка кровли.
14. Подвод коммуникаций.
15. Внутренняя отделка.
1) с
2) корневой каталог - С:
каталог первого уровня - windows
каталог второго уровня - appcompat
каталог третьего уровня - appraiser
3) b