Var skorost,pyt:real;
begin
writeln('Скорость равна = ');
read(skorost);
writeln('Путь равен = ');
read(pyt);
writeln('Время равно = ',pyt/skorost);
end.
А := Массив случайных чисел(их количество = N)
Б := A[0]
цикл i (от 1 до N):
если остаток от деления A[i] на 2 (вроде - mod в паскале) = 0 то:
если A[i]< Б то:
Б := A[i]
Вывод(Б)
? обозначает одну любую букву...... * обозначает любое количество букв или их отсутствие.............. Итак между буквами v и d должна быть только одна буква, а после d все что угодно. => ответ (а) vedomosti.doc