Ты рисунок который сверху хотябы сфоткай
1. Скорее всего нет, так как за 36 лет появилось много новых дорог и возможно исчезло множество старых. Поэтому отношение актуальной информации к устаревшей будет очень мало
2. 0.0625 гигабайт и 1048576, но мне кажется в условии должно быть наоборот, большее число в гигабайты, меньшее в мегабайты, тогда получится 64 мегабайта и 1024 гигабайта
Var b:array [1..100000] of integer;
a,k,i,n:integer;
begin
k:=0;{обнуляем счётчик}
readln(n);{вводим количество элементов в массиве}
readln(a);{задаём число а, с которым потом будем сравнивать}
for i:=1 to n do{запускаем цикл}
begin
if (b[i] > a) and ((b[i] mod 5)=0) then{проверка на выполнение условий,заданных в задаче}
k:=k+1;{при выполнении условия,увеличиваем счётчик на один}
end;
writeln(k);{выводим количество элементов, удовлетворивших условию задачи}
end.
<span>к любому, где URL обозначение в браузере идет с названия протокола http:// .. вот так
</span>
Program fdg;
uses crt;
var a:char b:integer;
Begin
clrscr;
writeln('Введите марку топлива латиницей');
readln(a);
writeln('Введите сколько литров вам нужно бензина этой марки ');
readln(b);
If a=ae