... - уже данный код в условии
s := 0;
min := 10;
for res := 1 to 4 do
begin
digit := n mod 10;
if (digit mod 2 = 1) then
begin
s += digit;
if (digit < min) then
min := digit;
end;
n := n div 10;
end;
writeln(s * min);
end.
<u><span>Три красных и один голубой!</span></u>
<span>Так как красных было больше чем голубых то слебовательно красных больше Двух. Тоесть или 3 или 4. Так как по условию мама купила не только шары красного цвета но и синего то заведомо хоть один синего цвета -> <span>3 красных и 1 голубой.</span></span>
Переведём скорость оптического канала в кб / с.
Var
min, summ, count, maxn, max, i:integer;
begin
summ:=0;
count:=0
maxn:=0;
writeln('Введите диапазон чисел: ');
read(min, max);
for i:=min to max do
begin
if ((i mod 2) = 0) then
summ:=summ+i
else
begin
if (i>maxn) then
maxn:=i;
count:=count+1;
end;
end;
if (count>10) then
writeln(maxn)
else
writeln(summ);
end.
Если нужны какие-то объяснения - пиши в комментарии.
Скорость, с которой она двигается:
Расстояние:
Если
, то решений нет и движется она в обратную сторону.
Тогда тут 2 стороны: либо брать модуль, либо говорить что это невозможно. Я выбрал второе, но если имелось в виду брать модуль перемещения, то просто ставишь модуль и всё.