Вася имеет высокоскоростной доступ в сеть интернет при спутниковой тарелки. пропускная канала получения данных со спутника составляет 8 мбит/сек. но эта связь работает только в одну сторону (на приём для того, чтобы компьютер васи мог отдавать команды, какую информацию нужно передавать со спутника, вася подключает к компьютеру сотовый телефон, который может передавать в сеть информацию со скоростью не более 256 кбит/сек. вася хочет скачать файл объёмом 40 мбайт. информация со спутника поступает на компьютер васи фрагментами не более 1 мбайта. для получения каждого фрагмента компьютер васи должен сначала передать в сеть набор инструкций суммарным объёмом 64 кбайт. за какое минимально возможное число секунд вася может получить весь файл? *** объясните, , как
Ответы
Program z3;
var A:array[1..3] of string;
var B:array[1..3] of string;
i,k:byte;
begin
writeln('Ввод названий газет: ');
for i:=1 to 3 do begin write('[',i,']');readln(A[i]); end;
writeln('Ввод подписчиков: ');
for i:=1 to 3 do begin write('[',i,']'); readln(B[i]); end;
for i:=1 to 3 do begin
if (A[i]='правда') and (B[i]= 'петров') then begin k:=i;
writeln('Да, Петров выписывает газету ',A[i]); end;
end;
end.
Ввод названий газет:
[1]Книга
[2]Правда
[3]Вера
Ввод подписчиков:
[1]Библиотекарь
[2]Петров
[3]Гундяев
Да, Петров выписывает газету Правда
var A:array[1..3] of string;
var B:array[1..3] of string;
i,k:byte;
begin
writeln('Ввод названий газет: ');
for i:=1 to 3 do begin write('[',i,']');readln(A[i]); end;
writeln('Ввод подписчиков: ');
for i:=1 to 3 do begin write('[',i,']'); readln(B[i]); end;
for i:=1 to 3 do begin
if (A[i]='правда') and (B[i]= 'петров') then begin k:=i;
writeln('Да, Петров выписывает газету ',A[i]); end;
end;
end.
Ввод названий газет:
[1]Книга
[2]Правда
[3]Вера
Ввод подписчиков:
[1]Библиотекарь
[2]Петров
[3]Гундяев
Да, Петров выписывает газету Правда
Program z3;
const n=3;
var A:array[1..n] of string;
var B:array[1..n] of string;
i,k:byte;
begin
writeln('Ввод названий газет:');
for i:=1 to n do
begin write('[',i,'] '); readln(A[i]);end;
writeln('Ввод фамилий подписчиков:');
for i:=1 to n do
begin write('[',i,'] '); readln(B[i]);end;
k:=0;
for i:=1 to n do
if (A[i]='Правда') and (B[i]='Петров') then k:=i;
if k<>0 then writeln('Да, Петров выписывает Правду.')
else writeln('Петров не выписывает Правду.');
end.
Пример:
Ввод названий газет:
[1] Правда
[2] Мир
[3] Атеист
Ввод фамилий подписчиков:
[1] Петров
[2] Дружаев
[3] Базаров
Да, Петров выписывает Правду.
const n=3;
var A:array[1..n] of string;
var B:array[1..n] of string;
i,k:byte;
begin
writeln('Ввод названий газет:');
for i:=1 to n do
begin write('[',i,'] '); readln(A[i]);end;
writeln('Ввод фамилий подписчиков:');
for i:=1 to n do
begin write('[',i,'] '); readln(B[i]);end;
k:=0;
for i:=1 to n do
if (A[i]='Правда') and (B[i]='Петров') then k:=i;
if k<>0 then writeln('Да, Петров выписывает Правду.')
else writeln('Петров не выписывает Правду.');
end.
Пример:
Ввод названий газет:
[1] Правда
[2] Мир
[3] Атеист
Ввод фамилий подписчиков:
[1] Петров
[2] Дружаев
[3] Базаров
Да, Петров выписывает Правду.
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
информатика осталось 11 мин
Автор: Khrimyan1207
Написать программу на фортране определить, является ли заданная матрица 5 порядка ортонормированной.
Автор: Мусаев Игоревич371
Какое логическое выражение равно «1»? 1)0 Ʌ 1 2(0 Ʌ 1 Ʌ 1 3)0 Ʌ 1 V 0
Автор: arevik2307
vт =256Кбит/с =32Кбайт/с -скорость передачи с телефона
Один фрагмент передачи информации 1Мбайт,
Нужны 40Мбайтов. Всего 40 фрагментов передачи информации.
1 фрагмент состоит из:
1) Васин запрос длится 64Кбайта : vт =64:32 =2(с)
2)передача со спутника: 1Мбайта :vc =1:1=1(c)
время передачи одного фрагмента =3с
время передачи сорока фрагментов = 40*3 =120(с)