Эта программа присваивает значение переменной N, потом присваивает переменной sum значение 1, за тем в случае пока N больше 1, выделяет целое число при делении значения переменной N на 10 и присваивает это значение переменной N (повторяет эту операцию пока N больше 1), когда значение переменной N не больше 1 программа печатает на экран полученное в последнем цикле значение переменной sum.
Ответ:
1) выведет 4
2) 10
3)<span>sum := 0;
</span> while N >= 1 do
Первое слово флаг. палец указывает первую букву заменить на П, значит плаг. Следующая буква И, значит плаги. Затем идёт перевернутый танк, т.е. кнат. две запятые перед ним призывают выкинуть две первые буквы. остается ат. соединим вместе: плагиат. это решение ребуса.
1. Направляет запрос на сервер.
4. Выводит данные на экран.
5. Составляет отчет для вывода на печать.
Ответ: 1, 4, 5.
N- мощность алфавита<span>
i - вес одного символа (в битах)</span><span>
N=256, следовательно i=8 </span>
<span>N=16, следовательно i=4 <span>
8/4 =2
Ответ в 2 раза
</span></span>
<span>1)Program massiv;
</span>
<span>Var mas:array[</span>1..20<span>] of </span>integer;
a,b,i,sum:integer;
<span><span>Begin
</span></span>
sum:=0;
<span>For i:=</span>1 To 20 Do
<span>
begin
</span>
mas[i]:= random(100); {Заполняем массив случайными числами в промежетке от 0 до 99 (можешь изменить промежуток}
write(mas[i],' ');
<span>
end;
</span>
Writeln('Введите a,b');
<span>
Readln(a,b);
</span>
<span>For i:=</span>1 To 20 Do
<span>
begin
</span><span>if (mas[i]>a) and (mas[i]<b) Then
sum:=sum+mas[i];
end;
Writeln(sum);
end. 2) <span>Program massiv;
</span><span>Var mas:array[</span>1..20<span>] of </span>integer;
i,min,max,pr:integer;<span><span>Begin
</span></span><span>For i:=</span>1 To 20 Do<span><span>
begin
</span></span>mas[i]:= random(15);
write(mas[i],' ');<span>
end;
Writeln;
</span>min:=30000;
max:=0;
<span>For i:=</span>1 To 15 Do<span><span>
begin
</span></span><span>if mas[i]>max Then max:=mas[i];
if mas[i]<min Then min:=mas[i];
end;
pr:=min*max;
Writeln(pr);
end. </span> 3)<span>Program massiv;</span>Var mas:array[1..20] of integer; a,b,i,k:integer;<span><span>Begin</span></span>For i:=1 To 20 Do<span><span>begin </span></span>mas[i]:= random(100); {Заполняем массив случайными числами в промежетке от 0 до 99 (можешь изменить промежуток}write(mas[i],' ');<span>end;</span>Writeln('Введите a,b,k');<span>Readln(a,b,k);</span>i:=1;While i<>20 Do<span><span>begin</span></span>if (mas[i]>a) and (mas[i]<b) and(mas[i] mod k=0) ThenWrite(mas[i],' ');i:=i+1;<span>end; end. </span>4)<span>Var mas:array[</span>1..20<span>] of </span>integer;
i,min,max,pr:integer;<span><span>Begin
</span>randomize;
</span><span>For i:=</span>1 To 20 Do<span><span>
begin
</span></span>mas[i]:= random(100)+1;
write(mas[i],' ');<span>
end;
Writeln;
</span>pr:=1;
<span>For i:=</span>1 To 15 Do<span><span>
begin
</span></span>pr:=pr*mas[i];<span>
end;
Writeln(pr);
end. </span>
</span>
