11 , 66, 57,75 ,84 ,48, 93, 39
Попробуйте нажать на клавишу F2
Ответ:
Дано:
K=100;
N1=8;
N2=64;
Найти: I(общ.).
Решение:
I=K*i;
N=2^i => i1=3; i2=6;
I1=100*3=300(бит); I2=100*6=600(бит);
I(общ.)=600+300=900(бит)=112,5(байт).
Ответ: 112,5 байт.
Объяснение:
// Задание №1
var
a,s: integer;
begin
a:=300;
repeat
s:=s+a;
a:=a+2;
until a>400;
writeln('s = ', s)
end.
// Задание №2
var
a: integer;
begin
a:=100;
repeat
if a mod 8 = 0 then write(a:4);
a:=a+1;
until a>999;
end.
Const n=10;
Var a: array [1..n] of integer;
i,min: integer;
Begin
For i:=1 to n do
a[i]:=Random(21)-10;
writeln ('Исходный массив: ');
for i:=1 to n do
write (a[i],' ');
writeln;
min:=a[1];
for i:=2 to n do
if a[i]<min then
min:=a[i];
writeln ('Минимальный элемент = ',min);
for i:=1 to n do
if a[i]<0 then
a[i]:=a[i]*min;
writeln ('Преобразованный массив:');
for i:=1 to n do
write (a[i], ' ');
end.