1.составьте программу вычисления количества трехзначных чисел, которые не кратны 5. 2.составьте программу вычисления двузначных чисел, которые кратны 3.

1)
Program al;
var k,i:integer;
begin
k:=0;
for i:=100 to 999 do
if i mod 5 <>0 then inc(k);
writeln('количество трёхзначных чисел не кратных 5=',k);
readln;
end.

2)
Program al;
var k,i:integer;
begin
k:=0;
for i:=10 to 99 do
if i mod 3 =0 then inc(k);
writeln('количество двузначных чисел  кратных 3=',k);
readln;
end.

Var k,i:integer;
begin
k:=0;
for i:=100 to 999 do
if i mod 5 <> 0 then inc(k);
writeln('количество трёхзначных чисел не кратных 5=',k);
readln;
end.

Самый верх - это корень или диск
1 уровень вверх - переход в родительскую папку
в данном случае
с С:/Транспорт\Сухопутный/Автомобили
в С:/Транспорт\Сухопутный/

1 уровень вниз - это заход в одну из подпапок, обычно надо уточнять в какую именно, но тут надо угадать
в данном случае
с С:/Транспорт\Сухопутный/
в С:/Транспорт/Сухопутный/почтовый/
и еще раз
с С:/Транспорт/Сухопутный/почтовый/
в С:/Транспорт/Сухопутный/почтовый/Железнодорожный.

Начальная папка имеет такой полный путь
С:/Транспорт\Сухопутный/Автомобили 

Решается методом подбора, или проходя все шаги в обратном направлении

Задача 1

Дано:

K = 16 * 32 * 25 шт = 12800 шт

i = 16 бит

I - ?

I = K * i (K - кол-во символов, i - вес одного символа/бит на символ)

Вес текста I = K * i = 12800 * 16 бит = 204800.0 бит

204800.0 бит = 25600.0 байт = 25.0 Кбайт

Задача 2

Дано:

K = 16 * 32 * 20 шт = 10240 шт

i = 16 бит

I - ?

I = K * i (K - кол-во символов, i - вес одного символа/бит на символ)

Вес текста I = K * i = 10240 * 16 бит = 163840.0 бит

163840.0 бит = 20480.0 байт = 20.0 Кбайт

Задача 3

Дано:

K = 32 * 32 * 30 шт = 30720 шт

i = 8 бит

I - ?

I = K * i (K - кол-во символов, i - вес одного символа/бит на символ)

Вес текста I = K * i = 30720 * 8 бит = 245760.0 бит

245760.0 бит = 30720.0 байт = 30.0 Кбайт