var
m:array [1..10000] of integer;
a,n,i,j:integer;
begin
writeln('Введите n:');
readln(n);
j:=0;
writeln('Введите последовательность чисел:');
for i:=1 to n do
begin
readln(a);
if (a mod 2)<>0 then begin j:=j+1; m[j]:=a; end;
end;
if j=0 then writeln ('Нечетных чисел нет в данной последовательности.')
else
begin
writeln ('Нечетные числа в данной последовательности:');
for i:=1 to j do
write(m[i],' ');
writeln;
end;
end
//Pascal ABC.NET v3.0 сборка 1111
//"Школьный" вариант, первая блок-схема
Var
a,b,c:integer;
begin
read(a,b,c);
if (a=b) and (b=c) then writeln('=') else
begin;
if a>b then
if a>c then writeln(a);
if b>a then
if b>c then writeln(b);
if c>a then
if c>b then writeln(c);
end;
<span>end.
//Вариант для любителей оккультизма, вторая блок-схема
begin
var se:=ReadArrReal(3);
if se.Sum()/se.Average()=se.Average() then writeln('=') else writeln(se.Max);
end.<span>
Пример ввода:
3
3
3
Пример вывода:
=</span></span>
Ответ:
21
Объяснение:
Выражение "НЕ (Первая буква согласная) ИЛИ НЕ (Последняя буква гласная)" эквивалентно выражению "НЕ (Первая буква согласная И Последняя буква гласная)".
Число способов составить выражение "Первая буква согласная И Последняя буква гласная" равно:
2 (буквы B, C) * 3 (буквы A, B, C) * 1 (буква A) = 6.
Число способов составить любое 3буквенное выражение из A, B, C равно 3^3 = 27.
Тогда количество искомых слов равно 27 - 6 = 21.
<span>N1. 47х16=752 бит. Ответ: 1 N2. 8х40х64=20480 - кол-во символов в статье. 25КБайт=25600 байт (25х1024)=204800 бит (25600х8) в статье. 204800/20480=10 бит Ответ: 3
1,47*16=752бит.
ответ 1
2,8*40*64=20480-кол-во символов в статье.</span>