Во Как называется алгоритм, который помимо следования содержит конструкцию ветвления?
Варианты ответов
• Линейный
• Вс Разветвляющийся
• Циклический
Во Какие существуют формы записи условного оператора в языке Pascal?
Варианты ответов
• Развёрнутая
• Полная
• Дополненная
• Сокращённая
Во Выберите условные операторы, записанные в сокращённой форме.
Варианты ответов
• if a>b then begin p:=a; a:=b; end;
• if a>b then max:=a else max:=b;
• if a<>b then write ('не равны') else write ('равны');
• if a<>b then a:=b;
Во Из указанных фрагментов программ выберите тот, который дает ответ на во является ли целое число a чётным или нечётным?
Варианты ответов
• if a mod 2=1 then write ('Нет') else write ('Да');
• if a mod 2=1 then write ('Да');
• if a mod 10=2 then write ('Да') else write ('Нет');
Во Из указанных фрагментов программ выберите тот, который дает ответ на во является ли целое число a положительным?
Варианты ответов
• if a mod 2=1 then write ('Нет') else write ('Да');
• if a >0 then write ('Да');
• if a mod 10=2 then write ('Да') else write ('Нет');
Во Из указанных фрагментов программ выберите тот, который дает ответ на во является ли целое число a трехзначным?
Варианты ответов
• if a mod 2=1 then write ('Нет') else write ('Да');
• if (a >9) and (a<100) then write ('Да');
• if a mod 10=2 then write ('Да') else write ('Нет');
Во Чему будет равно а после выполнения фрагмента программы?
a:=0;
if a<>0 then a:=2
else a:=3;
Во Какое значение примет переменная B при значении А:= - 20, после выполнения фрагмента программы:
if A>=15
then B:=A*2
else B:= A - 10
Варианты ответов
• - 40
• 30
• 20
• - 30
Во Что будет напечатано в результате выполнения следующей программы,
если значение R равно -10?
if R=0 then Y:=R*10;
if R>0 then Y:=R+10;
if R<0 then Y:=R*R/2;
writeln ('Y=', Y)
Варианты ответов
• 0
• 100
• -10
• 50
Первая предполагает, что кбит/с - это системная единица Си и тогда 1кбит/с = 1000 бит/с. Вторая - что кбит/с, как и Кбайт/с - единица внесистемная, и тогда 1 кбит/с = 1024 бит/с.
Правильным является первый вариант при написании по стандарту кбит/с, а во втором варианте надо писать Кбит/с. Именно заглавная буква К (и М в мегабитах, мегабайтах) указывают на внесистемность единицы.
Однако, 128 кбит/с кратно степени 2, а не 10, что показывает мнение составителя задачи о том, что 1 кбит = 1024 бита. Условно примем эту версию.
1. Определяем количество фрагментов
350 Мбайт / 10 Мбайт = 35 фрагментов
2. Время отправки запроса на сервер
32 Кбайт / 128 кбит/с = 32 Кбайт / (128/8 Кбайт/с) = 2 с
3. Время приема одного фрагмента
10 Мбайт / 4 Мбит/с = 10 Мбайт / (4/8 Мбайт/с) = 20 с
4. Время отправки подтверждения
16 Кбайт / 128 кбит/с = 16 Кбайт / (128/8 Кбайт/с)= 1с
5. Время на каждый пакет, кроме последнего
2+20+1=23 с
6. Общее время на все пакеты, кроме последнего
23 х 34 = 782 с
7. Время на последний пакет (подтверждение можно не передавать)
2+20 = 22 с
8. Общее время
782+22 = 804 с или 13 минут и 24 секунды
дешифровки:
Const sh = '_.,';
Var
St : String;
i : Integer;
Function DeCode(S : String; Tabl : String; k : Integer) : String;
Var j,n : Integer;
Begin
For j:=1 to Length(S) do
Begin
n:=Pos(S[j],sh);
If n>0 then
Begin
n:=n+k;
While n>Length(sh) do n:=n-Length(sh);
While n<=0 do n:=n+Length(sh);
S[j]:=sh[n];
end
end;
DeCode:=S;
end;
Begin
St:='ЗЫФЙГФШРЦ . ШД';
Writeln(Decode(St,sh,-6));
//For i:=-10 to 10 do Writeln(Decode(St,sh,i));
end.