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>
При ручной передаче быстрее передавать сообщения, поскольку количество посылок (точек-тире) для часто встречающихся букв меньше, чем для редких.
Program p_1;
var a: word;
begin
readln(a);
a := a * a;
writeln(a)
end
Ответ:
40 различных путей между а-т
решение: если брать путь АБ... то из точки б вытекают 4 пути которые ведут ВН и ещё 4 пути из н в т
из точки в только одна дорога до точки н и 4 дороги от н в т
из точки г 1 дорога в точку н и из н в т ещё четыре дороги
из точки д идут 4 пути до точки н и ещё 4 до точки и
получается:
4*4+4*1+44*1+4*4=40
18) В
19) Г (моржу)
20) Б (Г6)