Const
m=5;
n=3;
var
i,j,k:integer;
a:array[1..m,1..n] of integer;
begin
Randomize;
Writeln('Исходный массив');
k:=0;
for i:=1 to m do begin
for j:=1 to n do begin
a[i,j]:=Random(999)+1;
Write(a[i,j]:4);
if (a[i,j] mod 8=0) and (a[i,j] mod 10=4) then Inc(k);
end;
Writeln
end;
if k>0 then begin
Writeln('Искомые элементы');
for i:=1 to m do
for j:=1 to n do
if (a[i,j] mod 8=0) and (a[i,j] mod 4=10) then Write(a[i,j],' ')
end
else
Writeln('Нет элементов, кратных 8 и оканчивающихся на 4')
end.
Пример работы программы
Исходный массив
424 672 826
546 587 413
507 211 884
252 781 518
750 656 359
Искомые элементы
424
Мы ходили в кино, было очень весело! В этом фильме было множество различных актеров ,злодеи и герои участвовали! Мне понравились все актеры но самым любимым актером стал (например Космонавт) он спас мир!
Const n=15;
var a,s:array [1..100] of integer;
i,j:integer;
begin
for i:=1 to n do begin
a[i]:=random(15);
write(a[i],' ');
end;
j:=1;
writeln;
writeln('Полученный массив');
for i:=1 to n do begin
if (a[i] mod 2 = 0) and (a[i]>0) then begin
inc(j);
s[j]:=a[i];
write(s[j],' ');<span>
end;
end;</span>
Ответ:
10 байт = 80 бит
500 байт = 4000 бит
1,5 Кбайт = 12288 бит
2 Гбайт = 17179869184 бит
10240 байт = 10 Кбайт
204800 байт = 200 Кбайт
1,5 Кб = 1536 байт = 12288 бит
1,5 Гб = 1536 Мбайт = 1572864 Кб
Объяснение:
10 байт = 10 * 8 = 80 бит
500 байт = 500 * 8 = 4000 бит
1,5 Кбайт = 1,5 * 1024 * 8 = 12288 бит
2 Гбайт = 2 * 1024 * 1024 * 1024 * 8 = 17179869184 бит
10240 байт = 10240 / 1024 = 10 Кбайт
204800 байт = 204800 / 1024 = 200 Кбайт
1,5 Кб = 1,5 * 1024 = 1536 байт = 1536 * 8 = 12288 бит
1,5 Гб = 1,5 * 1024 = 1536 Мбайт = 1536 * 1024 = 1572864 Кб