Що таке цикл?
варіанти відповідей
Вибір дій
Слідування
Повторення
Об'явлення змінних
Запитання 2
Який цикл є циклом з лічильником?
варіанти відповідей
While
For
Repeat
Запитання 3
Коли число повторень тіла циклу заздалегідь невідоме, а задається лише умова виконання циклу, використовується ... .
варіанти відповідей
Цикли з передумовою
Цикл з лічильником
Цикл з неповним розгалуженням
Цикл з повним розгалуженням
Запитання 4
Блок-схема якої базової структури представлена на рисунку?
варіанти відповідей
Цикл з передумовою
Цикл з параметром
Повне розгалуження
Запитання 5
Якого типу може бути параметр циклу о операторі For?
варіанти відповідей
Real
Integer
Byte
String
Запитання 6
Який оператор задає цикл з передумовою?
варіанти відповідей
Repeat - until
Case - of
For - to - do
While - do
Запитання 7
Укажіть запис, при якому буде виконуватись тіло циклу.
варіанти відповідей
for a:=3 to -8 do s:=s*8;
for a:=4 downto 40 do s:=7*s;
for a:=1 to 100 do s:=s+1;
for a:=0.5 to 10 do s:=s+4;
Запитання 8
Тіло циклу складається з кількох команд, то вони пишуться між службовими словами:
варіанти відповідей
begin - end
for - to -do
while - until
Запитання 9
Якщо в циклі з параметром for i:=A to B do S; значення В менше ніж значення А, то ...
варіанти відповідей
оператор S не виконається жодного разу
оператор S виконається 1 раз
оператор S виконається В-А разів
оператор S виконається В-А+1 разів
Запитання 10
Чи можна в циклі for ... задати крок змінення параметра циклу відмінний від 1 або -1?
варіанти відповідей
Не можна
Можна, якщо включити в тіло циклу вираз вигляду і:=і+крок, де і - параметр циклу
Запитання 11
Якщо в циклі з параметром for i:=A downto B do S; значення В більше ніж значення А, то ...
варіанти відповідей
оператор S не виконається жодного разу
оператор S виконається один раз
Как получить 507 и 510? Первое число m, не меньшее некоторого k и кратное n определяется по простому алгоритму. Пусть p = k mod n - остаток от целочисленного деления k на n. Если p=0, то m=k, в противном случае m=k+n-p.
Проверим для k=500, n=13.
p = 500 mod 13 = 6. p≠0 ⇒ m = 500+13-6 = 507.
Поскольку 17>13, в последовательности чисел, кратных 17, их не может быть больше половины искомого количества, т.е. больше 20/2=10. А десятый член последовательности 510, 257, ... это 510+9×17 = 663. Тем более, это значение не может быть превышено в последовательности чисел, кратных 13, их там будет (663-507)/13=12.
Окончательно: строим последовательности из 12 чисел ряда 507, 520, 533... и 10 чисел ряда 510, 527, 544, ... объединяем их в последовательность, упорядоченную по возрастанию и берем 20 первых ее членов.
PascalABC.NET 3.3.5, сборка 1660 от 20.04.2018
Внимание! Если программа не работает, обновите версию!
begin
(SeqGen(12,507,t->t+13)+SeqGen(10,510,t->t+17)).OrderBy(t->t)
.Distinct.Take(20).Println
end.
Результат
507 510 520 527 533 544 546 559 561 572 578 585 595 598 611 612 624 629 637 646
800*600*16 (16 бит на пиксель это 65 536 цветов)=7680000 - бит информационный вес одного поля кадра.
Допустим частота обновления экрана монитора 60 Гц, тогда
7680000*60 (Гц)=460800000 бит в секунду * 60 (секунд)= 27648000000 бит - информационная емкость потока фильма в течении 1 минуты.
Постичаем в байтах
27648000000/8/1024/1024/1024=3.2186 Гигабайт - объём информационного потока
Задача №3
за одну секунду пройдет 36 мегабайт
2 часа = 7200 секунд *36=259200 мегабайт=253.12 Гбайт
Подробнее - на -