Первая:
Uses crt;
Var arr:array[1..100] of integer;
n,a,c:integer;
Begin
Write('Сколько чисел вы хотите ввести?-');
Readln(n);
for a:=1 to n do
begin
Write('Введите ',a,' число:');
Readln(arr[a]);
end;c:=0;
For a:=1 to n do
Begin
if (arr[a] mod 2<>0) and (arr[a]<0) then c:=c+1;
end;
Writeln('В последовательности ',c,' нечетных отрицательных чисел.');
<span>end.
Вторая:
Uses crt;
Var arr:array[1..100] of integer;
a,b,c,m:integer;
begin
Write('Сколько чисел вы хотите ввести?-');
Readln(b);
For a:=1 to b do
begin
Write('Введите ',a, ' число:');
Readln(arr[a]);
end;
For a:=1 to b do
Begin
m:=arr[a];
For c:=1 to 2 do
begin
arr[a]:=m*arr[a];
end;end;
For a:=1 to b do
begin
Writeln('Куб ',a,' введенного вами числа равен:',arr[a]);
end;
<span>end.</span>
</span>
// 1
double sum = 0; for(int i = 0; i < 6; i++){ double temp; std::cin >> temp; sum += temp; } std::cout << sum;
// 2
for(int i = (sizeof(arr)/sizeof(*arr)) - 1; i >= 0; i--){ std::cout << arr[i]; }
// 3
double sum = 0; for(int i = 0; i < 5; i++){ double temp; std::cin >> temp; sum += temp; } std::cout << sum;
1 задача.
Для начала надо найти i(вес 1 символа, т.е чему равен 1 символ в битах)
Для этого есть формула N=2^i ; N(Мощность алфавита)
Подставляем в формулу мощность алфавита.
64=2^6 значит i=6 бит, а как получил 6 тут просто нужно , 2×2×2×2×2×2=64 , кол.двоек означает вес 1 символа.
Теперь, чтобы найти I(3 страниц)нужно (кол.страниц×кол.строк×кол.символов×вес 1 символа)
I=3×40×60×6=43'200 бит, теперь переведем в байты по условию задачи.
43'200 бит=43'200÷8=5'400байт
Ответ:5'400 байт<span> количество информации содержат 3 страницы.
</span>2 задача.
Для начала надо перевести I(Обьём сообщения) из байт в бит
9000×8=72'000 бит
Теперь, чтобы найти кол.символов в алфавите, нужно знать формулу N=2^i ; N(Мощность алфавита), i(вес 1 символа, т.е сколько 1 символ с битах) , значит нам нужно найти для начала i, чтобы найти надо i=I(обьем сообщения)÷(кол.страниц×кол.строк×кол.символов)
i=72'000÷(6×40×60)=5 ; i=5 бит, дальше i ставим в формулу
N=2^5 получаеться будет 32=2^5 , а как нашли 32, здесь надо 2×2×2×2×2=32.
Ответ:32<span> символа в алфавитном языке.
P.S: Знак (') я писал, чтобы легче было распознать число.
</span>
На C# только если
Console.WriteLine("Введите число ");
int a = Convert.ToInt32(Console.ReadLine());
if (a%2 == 0)
{
Console.WriteLine("Число четное");
}
else Console.WriteLine("Число нечетное");
