var v, v1, v2 : real;
begin
writeln ('Задайте скорость движения авто на пути 1');
readln (v1);
writeln ('Задайте скорость движения авто на пути 2');
readln (v2);
v := ( v1 + v2 ) / 2;
writeln('Средняя скорость движения по всему пути составляет : ' ,v ,' км/час');
<span>end.</span>
Представь первый столбик 6 цифр 1-6, а второй буквы с А-Е.
1-Е
2-Д
3-В
4-Б
5-А
6-Г
в двоичной системе это число записывается так: 10000. поэтому ответ: 4 нуля.
a$ = "confidencialno"
a1$ = LEFT$(a$,3)
a2$ = RIGHT$(a$,2)+"s"
a3$ = MID$(a$,4,1)+MID$(a$,7,2)
Var n, i, count: integer;
begin
count := 0;
for i := 1 to 16 do begin
read(n);
if n mod 10 = 6 then count := count + 1;
end;
writeln(count);
end.