Ошибка после условия, цикл будет выполнятся бесконечно, так как переменная a всегда будет a=1. Чтобы исправить это, нужно:
s=s+a
n=n+1
a=a+1
Результат - 10.
Ответ:
4₁₀ = 1*2² = 100₂
8₁₀ = 1*2³ = 1000₂
16₁₀ = 1*2⁴ = 10000₂
32₁₀ = 1*2⁵ = 100000₂
64₁₀ = 1*2⁶ = 1000000₂
5₁₀ = 1*2⁰ + 1*2² = 101₂
10₁₀ = 1*2¹ + 1*2³ = 1010₂
20₁₀ = 1*2² + 1*2⁴ = 10100₂
40₁₀ = 1*2³ + 1*2⁵ = 101000₂
Объяснение:
4₁₀ = 0*2⁰ + 0*2¹ + 1*2² = 100₂
8₁₀ = 0*2⁰ + 0*2¹ + 0*2² + 1*2³ = 1000₂
16₁₀ = 0*2⁰ + 0*2¹ + 0*2² + 0*2³ + 1*2⁴ = 10000₂
32₁₀ = 0*2⁰ + 0*2¹ + 0*2² + 0*2³ + 0*2⁴ + 1*2⁵ = 100000₂
64₁₀ = 0*2⁰ + 0*2¹ + 0*2² + 0*2³ + 0*2⁴ + 0*2⁵ + 1*2⁶ = 1000000₂
5₁₀ = 1*2⁰ + 0*2¹ + 1*2² = 101₂
10₁₀ = 0*2⁰ + 1*2¹ + 0*2² + 1*2³ = 1010₂
20₁₀ = 0*2⁰ + 0*2¹ + 1*2² + 0*2³ + 1*2⁴ = 10100₂
40₁₀ = 0*2⁰ + 0*2¹ + 0*2² + 1*2³ + 0*2⁴ + 1*2⁵ = 101000₂
1 вариант:
<span><span>var
</span></span>
a, b, c, min: integer;
<span><span>begin
</span></span>
min:=0;
<span>
readln(a, b, c);
</span>
<span>if (a<b) and (a<c) then min:=a;</span>
<span>
if (b<a) and (b<c) then min:=b;
</span>
<span>if (c<a) and (c<b) then min:=c;</span>
<span>
writeln(min);</span>
<span>
end.</span>
2 вариант:
<span>Var a:array[</span>1..3<span>] of </span>integer;
i,z:integer;
<span><span>begin
</span></span>
<span>for i:=</span>1 to 3 do
Readln(a[i]);
z:=a[1];
<span>for i:=</span>2 to 3 do
<span><span>
begin</span></span>
<span><span /></span><span>if a[i]<z
then z:=a[i];</span>
<span>
end;</span>
<span>
writeln(z);</span>
<span>
end.</span>
max:=mas[0];
For i:=1 to N do
if ((mas[i] mod 2 <>0)and(max<mas[i]))then max:=mas[i];
Ответ:
21
Объяснение:
Выражение "НЕ (Первая буква согласная) ИЛИ НЕ (Последняя буква гласная)" эквивалентно выражению "НЕ (Первая буква согласная И Последняя буква гласная)".
Число способов составить выражение "Первая буква согласная И Последняя буква гласная" равно:
2 (буквы B, C) * 3 (буквы A, B, C) * 1 (буква A) = 6.
Число способов составить любое 3буквенное выражение из A, B, C равно 3^3 = 27.
Тогда количество искомых слов равно 27 - 6 = 21.