Листва, ветки, крона, корни,ствол
Program azazaza;
var a,n,i:integer;
begin
for i:=1 to 10 do begin
read(a);
if a mod 2 = 0 then
n:=n+1;
end;
writeln('чётных=',n);
end.
Это только 1-е задание
Ответ:
Объяснение:
Для решения задач необходимо все заданные числа перевести в одну систему счисления. В нашем случае все числа запишем в десятичной системе счисления.
Задача 1
1001001₂ = 73₁₀
324₈ = 212₁₀
7В₁₆ = 123₁₀
73-212+123 = -16
Задача 2
4Е₁₆ = 48₁₀
150₈ = 104₁₀
В интервале будет расположено
104-48+1 = 57 чисел
Задача 3
30₁₆ = 48₁₀
65₈ = 53₁₀
110011₂ = 51₁₀
Наименьшее число 48
1) Ответ 6 (путь а-б-д-е)
2)Ответ 8 (путь а-ц-д-е)
3)вторая таблица (а-б-д)
Var
i:integer;
begin
i:=33300;
while (i mod 55 <> 0) do begin
i:=i+1;
end;
writeln(i,'/55=',i/55);
end.