100 нужно решить по информатике 8-9 класс 2. файл раз¬ме¬ром 9 кбайт пе¬ре¬даётся через не¬ко¬то¬рое со¬еди¬не¬ние за 36 се¬кунд. опре¬де¬ли¬те, за сколь¬ко се¬кунд можно пе¬ре¬дать этот же файл через со¬еди¬не¬ние, ско¬рость ко¬то¬ро¬го на 1024 бит в се¬кун¬ду боль¬ше. в от¬ве¬те ука¬жи¬те одно число — ко¬ли¬че¬ство се¬кунд. еди¬ни¬цы из¬ме¬ре¬ния пи¬сать не нужно. 3. файл раз¬ме¬ром 2 кбай¬та пе¬ре¬даётся через не¬ко¬то¬рое со¬еди¬не¬ние со ско¬ро¬стью 256 бит в се¬кун¬ду. опре¬де¬ли¬те раз¬мер файла (в бай¬тах), ко-то¬рый можно пе¬ре¬дать за то же время через дру¬гое со¬еди¬не¬ние со ско-ро¬стью 512 бит в се¬кун¬ду. в от¬ве¬те ука¬жи¬те одно число — раз¬мер файла в бай¬тах. еди¬ни¬цы из¬ме¬ре¬ния пи¬сать не нужно. 4. пред¬по¬ло¬жим, что дли¬тель¬ность не¬пре¬рыв¬но¬го под¬клю¬че¬ния к сети ин¬тер¬нет с по¬мо¬щью мо¬де¬ма для не¬ко¬то¬рых атс не пре¬вы¬ша¬ет 10 минут. опре¬де¬ли¬те мак¬си¬маль¬ный раз¬мер файла в кбай¬тах, ко¬то¬рый может быть пе¬ре¬дан за время та¬ко¬го под¬клю¬че¬ния, если модем пе¬ре¬да-ет ин¬фор¬ма¬ция в сред¬нем со ско¬ро¬стью 32 ки¬ло¬би¬та/с. 5. ско¬рость пе¬ре¬да¬чи дан¬ных через adsl─со¬еди¬не¬ние равна 1024000 бит/c. пе¬ре¬да¬ча файла через дан¬ное со¬еди¬не¬ние за¬ня¬ла 5 се-кунд. опре¬де¬ли¬те раз¬мер файла в ки¬ло¬бай¬тах. я не знаю почему такие буквы, учитель так кинул
Ответы
Const n=15;
var a:array[1..n] of integer;
i,s:integer; sr:real;
begin
Randomize;
writeln('Массив:');
for i:=1 to n do
begin
a[i]:=random(21);
write(a[i]:3);
end;
writeln;
s:=0;
for i:=1 to n do s:=s+a[i];
sr:=s/n;
writeln('Среднее арифметическое = ',sr:6:2);
writeln('Номера элементов, больших среднего арифметического:');
for i:=1 to n do
if a[i]>sr then write(i:3);
writeln;
end.
Пример:
Массив:
9 19 14 8 7 10 5 10 6 14 15 2 11 17 13
Среднее арифметическое = 10.67
Номера элементов, больших среднего арифметического:
2 3 10 11 13 14 15
var a:array[1..n] of integer;
i,s:integer; sr:real;
begin
Randomize;
writeln('Массив:');
for i:=1 to n do
begin
a[i]:=random(21);
write(a[i]:3);
end;
writeln;
s:=0;
for i:=1 to n do s:=s+a[i];
sr:=s/n;
writeln('Среднее арифметическое = ',sr:6:2);
writeln('Номера элементов, больших среднего арифметического:');
for i:=1 to n do
if a[i]>sr then write(i:3);
writeln;
end.
Пример:
Массив:
9 19 14 8 7 10 5 10 6 14 15 2 11 17 13
Среднее арифметическое = 10.67
Номера элементов, больших среднего арифметического:
2 3 10 11 13 14 15
Function IsPrime(n: integer): boolean;
// Проверка, является ли число простым
var
p: integer;
found: boolean;
begin
found := (n mod 2 = 0);
p := 3;
while (not found) and (sqr(p) <= n) do
begin
found := (n mod p = 0);
p := p + 2
end;
IsPrime := (not found) or (p = 2)
end;
const
n = 20;
var
i, k: integer;
a: array[1..n] of integer;
begin
Write('Введите 20 целых чисел через пробел: ');
for i := 1 to n do
begin
Read(a[i]);
end;
k := 0;
for i := 1 to n do
if IsPrime(a[i]) then k := k + 1;
Writeln('Количество простых чисел- ', k)
end.
Тестовое решение:
Введите 20 целых чисел через пробел: 5 36 83 1673 339 73 34 14623 7 173 62 45 3463 326 28 934 345 24 4526 1143
Количество простых чисел- 6
// Проверка, является ли число простым
var
p: integer;
found: boolean;
begin
found := (n mod 2 = 0);
p := 3;
while (not found) and (sqr(p) <= n) do
begin
found := (n mod p = 0);
p := p + 2
end;
IsPrime := (not found) or (p = 2)
end;
const
n = 20;
var
i, k: integer;
a: array[1..n] of integer;
begin
Write('Введите 20 целых чисел через пробел: ');
for i := 1 to n do
begin
Read(a[i]);
end;
k := 0;
for i := 1 to n do
if IsPrime(a[i]) then k := k + 1;
Writeln('Количество простых чисел- ', k)
end.
Тестовое решение:
Введите 20 целых чисел через пробел: 5 36 83 1673 339 73 34 14623 7 173 62 45 3463 326 28 934 345 24 4526 1143
Количество простых чисел- 6
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
Какие системы счисления называются непозиционными
Автор: lika080489
Что является действиями с информацией
Автор: gena1981007
Вредоносная программа создавать копии самого себя и внедряться в код других программ
Автор: Николаевна Филиппов1936
4 задача:
1) 32*60*10=19200 Кбит в 10 мин
2) 19200:8=2400 Кбайт в 10 мин
2 задача:
Переводом кбайты в биты: 9•1024•8=73728
73728/36=2048(бит/сек) скорость соединения
2048+1024=3072(бит/сек) - скорость нового соединения
73728/3072=24 секунды
3 задача:
256 бит в секунду = 256/8 байт в секунду = 32 байт в секунду
файл в 2 Кибайта передается за 2048/32 = 64 секунды.
другое соединение - 2048 бит/с = 256 байт/с
за 64 с передастся 256 * 64 = 16384 байта или 16 Килобайт
5-ую задачу
1 байт - 8 бит
х байт - 1024000 бит
х = 1024000/8 = 128000 байт/с (скорость передачи данных)
128000*5 = 640000 байт весит файл
1 килобайт = 1024 байт
640000/1024 = 625 Кбайт весит файл