1 720 Кбайт
2 720 Кбайт
3 1 Кбайт
4 если б байты то 40 если б это биты то 5 (я просто не понял что значит б)
В семеричной системе счисления используются цифры 0..6
Количество искомых цветов проще всего вычислить простым перебором:
1) 100 - 1
2) 200, 201, 210 - 3
3) 300, 301, 302, 310, 311, 320 - 6
4) 400, 401, 402, 403, 410, 411, 412, 420, 421, 430 - 10
5) 500, 501, 502, 503, 504, 510, 511, 512, 513, 520, 521, 522, 530, 531, 540 - 15
6) 600, 601, 602, 603, 604, 605, 610, 611, 612, 613, 614, 620, 621, 622, 623, 630, 631, 632, 640, 641, 650 - 21
Итого: 1+3+6+10+15+21 = 56
Он шел так: вверх - вверх - вниз. Чтобы вернуться назад, надо пойти вверх - вниз - вниз
C:\Школа\Уроки\Химия → C:\Школа\Уроки → C:\Школа\Уроки\... → C:\Школа\Уроки\...\Логика
Название папки, обозначенное ..., восстановить из условия не получится. Пример возможного полного пути каталога, с которым пользователь начинал работу:
C:\Школа\Уроки\Информатика\Логика
Var
x, y, z, d: real;
function min(a, b: real): real;
begin
if a < b then
min := a
else min := b;
end;
function max(a, b: real): real;
begin
if a > b then
max := a
else max := b;
end;
begin
readln(x, y, z, d);
writeln(max(min(x, y), max(min(x, z), min(z, d))));
end.
//PascalABC
var
a, b, c, P, S : real;
begin
write('Введите длину стороны A> ');
readln(A);
write('Введите длину стороны B> ');
readln(B);
write('Введите длину стороны C> ');
readln(C);
writeln('Вычисление по формуле Герона');
P := (A + B + C) / 2;
S := sqrt(P * (P - A) * (P - B) * (P - C));
writeln('Площадь треугольника S = ', S);
end.