1. известны фамилии всех 11 сотрудников фирмы и их адреса. определить, работают ли в фирме люди с одной из фамилий: кузин, куравлев, кудин, кульков или кубиков. в случае положительного ответа напечатать их адреса. dev c++
var i,j,n:longint; f:boolean; begin writeln('Введите число'); readln(n); if n<2 then writeln('Простых делителей нет') else begin write('Число ',n,' ','= 1'); for i:=2 to n do if n mod i=0 then begin f:=true; j:=2; while f and(j<=round(sqrt(i/2)))do begin if i mod j=0 then f:=false else j:=j+1; end; if f then write('*',i); end; end; end.
1) 4,5 байт
2) 72 бит
3) 7 байт
4) 26 бит
5) 2560 байт
6) 768 байт; 6144 бит
7) 1088 байт; 1,0625 Кбайт
8) 1280 Кбайт
9) 2,75 Гбайт
10) 768 Мбайт
Объяснение:
1 Гбайт = 1024 Мбайт
1 Мбайт = 1024 Кбайт
1 Кбайт = 1024 байт
1 байт = 8 бит
1. 36 бит = 36 / 8 байт = 4,5 байт
2. 9 байт = 9 * 8 бит = 72 бит
3. 56 бит = 56 / 8 байт = 7 байт
4. 3,25 байт = 3,25 * 8 бит = 26 бит
5. 2,5 Кбайт = 2,5 * 1024 байт = 2560 байт
6. 0,75 Кбайт = 0,75 * 1024 байт = 768 байт = 768 * 8 бит = 6144 бит
7. 8704 бит = 8704 / 8 байт = 1088 байт = 1088 / 1024 Кбайт = 1,0625 Кбайт
8. 1,25 Мбайт = 1,25 * 1024 Кбайт = 1280 Кбайт
9. 2816 Мбайт = 2816 / 1024 Гбайт = 2,75 Гбайт
10. 0,75 Гбайт = 0,75 * 1024 Мбайт = 768 Мбайт
var i,j,n:longint;
f:boolean;
begin
writeln('Введите число');
readln(n);
if n<2 then writeln('Простых делителей нет')
else
begin
write('Число ',n,' ','= 1');
for i:=2 to n do
if n mod i=0 then
begin
f:=true;
j:=2;
while f and(j<=round(sqrt(i/2)))do
begin
if i mod j=0 then f:=false
else j:=j+1;
end;
if f then write('*',i);
end;
end;
end.
Тестовое решение:
Введите число
2345
Число 2345 = 1*5*7*35*67