Var min, n, r, m:integer;
begin
writeln('Введите целое положительное число');
read(n);
min := 10;
r := 1;
while r <> 0 do
begin
m := n mod 10;
if (m < min) and (m mod 2 = 1) then min := m;
r := n div 10;
n := r;
end;
if min = 10 then writeln('В числе нет нечетных цифр') else writeln (min)
<span>end.</span>
1(54/2=27) 2(27+1=28) 1(28/2=14) 2(14+1=15) 2(15+1=16) т.е ответ(1,2,1,2,2)
В России построена первая телеграфная линия - 40-е гг. 19 века.
В Америке изобретён телефон - 1876 г
Русский ученый Попов открыл радиосвязь - 1895 г.
Создан первый телевизор - 30-е гг. 20 века
В США начала функционировать первая в мире компьютерная - 1969 г.
1 А) Автозаполнение порядкового номера(а1 а7)
Автозаполнение формул(Е2 Е7 С7 Е7
1)C1D2
2)C2C6
Если ты сможешь разобраться в моем подчеке