Var a,x,i,q,t,n:integer;
begin
writeln('введите кокое нибудь большое число в пределах 10000');
readln(x);
for i:=1 to x do
begin
q:=i;
n:=0;
while (q>9) do
begin
a:=q;
q:=1;
n:=n+1;
while (a>0) do
begin
t:=a mod 10;
a:=a div 10;
q:=q*t;
end;
end;
if (n=5) then
writeln(i:9);
end;
writeln;
<span>end. Программа выводит все числа с шагом 5 наименьшее число оказалось 679!!!</span>
AD/AB = 1/4; => AC/AB = 1/2; => CK/BK = 1/2;
У треугольников ABK и ACK общая высота (расстояние от вершины A до прямой BC), а отношение сторон (к которым эта общая высота проведена) равна 1/2; значит, также относятся и их площади.
Переведем в дм.
10 м=100 дм
4 м-40 дм
100-47-50=3 дм
<span>Пусть скорость пешехода x. Тогда скорость велосипедиста y=4x. Уравнение для вычисления x будет таким: 2,5(4x+x)=40. Откуда x=3,2 км/ч, а у=12,8 км/ч.</span>
469\2
4\2=2 значит первая цифра 2
6\2=3 вторая цифра ответа
9\2=4 третья цифра ответа
Ставим запятую так как остался остаток 1
спускаем к цифре 1 0
10\2=5
Ответ 234,5