Задание 1 Скоростной спутниковый доступ в интернет обеспечивает получение данных со скоростью 2 500 000 бит/с. Для передачи запроса с компьютера на сервер требуется скорость 256 000 бит/с посредством подключения к компьютеру через телефон, который выполняет функции модема. Требуется скачать файл объёмом 18 Мбайт. Информация по каналу передаётся пакетами объёмом не более 5 Мбайт. Для получения каждого пакета компьютер сначала должен передать в сеть запрос объёмом в 25 Кбайт. Возможно ли скачивание данного файла за 40 с?

Задание 2

Дана возрастающая последовательность трёхзначных чисел:

111; 126; 131; 136; 215; 240; 311; 356; 412; 480; 501; 524; 569; 619; 625; 729.

Используя метод половинного деления, найдите число 569.

Покажите полное решение и опишите процесс поиска.

Задание 3

В азбуке Морзе сигналы отделяются друг от друга паузами – отсутствием сигналов. Закодируйте с азбуки Морзе следующую фразу:

"Never regret anything that made you smile" (Марк Твен).

Показать ответ

Ответ:

Adilkin

31.01.2021 19:10

uses crt; var s:string; c:char; m:set of char; n,i,k,p:byte; begin writeln('Введите текст из строчных латинских букв, окончаание ввода Enter'); s:=''; repeat c:=readkey; if c in ['a'..'z'] then begin write(c); s:=s+c; end; if c=#13 then writeln until c=#13; n:=length(s); m:=[]; for c:='a' to 'z' do begin k:=0; for i:=1 to n do if s[i]=c then k:=k+1; if k>1 then m:=m+[c]; end; if m=[] then write('Нет букв, встречающихся более 1 раза') else for c:='a' to 'z' do if c in m then write(c) end.

0,0(0 оценок)

Ответ:

nicsiberia

19.05.2020 06:15

Var a: array[1..20,1..20] of integer; n,m,i,j,min,jm,x: integer; begin randomize; write('Введите размеры массива: '); readln(n,m); writeln('Исходный массив:'); for i:=1 to n do begin for j:=1 to m do begin a[i,j]:=random(19)-9; write(a[i,j]:4); end; writeln; end; min:=0; for i:=1 to n do min:=min+a[i,1]; writeln('Сумма элементов 1-го столбца = ',min); jm:=1; for j:=2 to m do begin x:=0; for i:=1 to n do x:=x+a[i,j]; writeln('Сумма элементов ',j,'-го столбца = ',x); if x<min then begin min:=x; jm:=j; end; end; writeln('Минимальная сумма в ',jm,'-м столбце'); writeln('Полученный массив:'); for i:=1 to n do begin for j:=1 to m do begin if j<>jm then a[i,j]:=a[i,jm]; write(a[i,j]:4); end; writeln; end; readln; end.

0,0(0 оценок)

Популярные вопросы: Информатика