1.Выбери правильные условия
while условие do
begin
a:=random(100);
b:=random(100);
c:=random(100);
d:=random(100);
end;
В игре "Кто хочет стать миллионером" нужно создать результаты подсказки зала", ее сделали с цикла. При каком условии цикл завершит свою работу и создаст 4 случайных результата голосования:
1) (a\lt<100) or (b\lt<100) or (c\lt<100) or (d\lt<100)
2) (a\lt<100) and (b\lt<100) and (c\lt<100) and (d\lt<100)
3) a+b+c+d=100
4) a+b+c+d\lt\gt<>100
2.Соотнеси команды для выполнения задачи и их порядок
Программа должна вывести на экран таблицу квадратов чисел от 2 до 10, выбери порядок команд для выполнения этой задачи.
А) a:=a-1;
Б) until a<2
В) repeat
Г) writeln(a*a);
Д) a:=10;
1-
2-
3-
4-
5-
3.Составь правильную запись общего вида цикла while на языке Pascal
1) оператор; 2) условие
while do
4.Соотнеси команды операторов цикла и их перевод
1) while А)повторять
2) do Б) до тех пор пока
3) repeat В) делать
4) until Г) пока
5.Определи количество раз выполнения цикла
Дан цикл:
a:=0;
b:=0;
while a<5 do
begin
a:=a+1;
b:=a;
a:=b+1;
end.
Сколько раз выполнятся команды внутри цикла?
А) 1
Б) 2
В) 3
Г) 4
6.Выбери задачи, в которых оправдано применение операторов цикла
Для каких из ниже перечисленных задач потребуется применить операторы цикла?
1) Вывести на экран сообщение для пользователя из-за ошибки в работе программы
2) Вывести на экран квадраты чисел от 2 до 100
3) Определить, является ли введенное число Решить квадратное уравнение по введенным коэффициентам
5) По координате клетки на шахматной доске определить ее цвет
6) По трем сторонам треугольника определить существует ли он
7) Вычисление факториала числа
7.Выбери правильные ответы на во о работе операторов цикла
Какие есть отличия оператора while от оператора repeat?
1) while do - оператор с условием продолжения работы, а repeat until - оператор с условием окончания работы
2) У этих операторов нет отличий
3) Оператор while выполняется до тех пока условие истинно, а оператор repeat до тех пока условие ложно
4) Разные формы записи условий
8. Выбери строчки с ошибками в работе программы
Дана программа нахождения четных чисел в диапазоне от 3 до 20:
1. program pr4;
2. var a: real;
3. begin;
4. a:=3;
5. while a<20 do
6. begin
7. if a mod 2 <> 0 then writeln('Число четное - ', a)
8. a:=a+1;
9. end;
10. end.
Укажи номера строк с ошибками:
А) 1
Б) 2
В) 3
Г) 4
Д) 5
Е) 6
Ё) 7
Ж) 8
З) 9
И) 10
9.Выбери правильное условие для решения задачи
Есть цикл:
a:=100;
q:=0.8;
while a>10 do a:=a*q;
Как надо изменить условие в цикле, чтобы он стал бесконечным?
1) a\lt<10
2) a\gt>0
3) a\lt<0
4) a\gt=>=1
10.Выбери правильное значение количества исполнений цикла
Дан цикл:
for i:=1 to 7 do writeln('Привет мир!');
Сколько раз будет выведено сообщение?
А) 6
Б) 5
В) 7
Г) 8
'''
В небоскрёбе n этажей и 1 подъезд,
на каждом этаже по 3 квартиры,
лифт останавливается только
на нечётных этажах. Человек садится
в лифт и нажимает номер нужной
ему квартиры. На какой этаж
дома довезёт лифт человека?
'''
n = int(input('n = '))
ap_to = int(input('Номер квартиры: '))
rem_floor = 1 if ap_to % 3 > 0 else 0
floor_ap_to = ap_to // 3 + rem_floor
if floor_ap_to > n:
raise ValueError('Такой квартиры нет!')
elif floor_ap_to % 2 == 0:
print('Лифт довезёт человека либо на {} этаж (придётся подняться на 1 этаж по лестнице,'.format(floor_ap_to -1))
print('либо на {} этаж, и на 1 этаж придётся спуститься.'.format(floor_ap_to + 1))
else:
print('Лифт довезёт человека на нужный этаж.')
A,B,C:integer;
Begin
C:=365;
Read(A,B);
if A>1 then C:=C-31;
if A=1 then C:=C-B;
if A>2 then C:=C-28;
if A=2 then C:=C-B;
if A>3 then C:=C-31;
if A=3 then C:=C-B;
if A>4 then C:=C-30;
if A=4 then C:=C-B;
if A>5 then C:=C-31;
if A=5 then C:=C-B;
if A>6 then C:=C-30;
if A=6 then C:=C-B;
if A>7 then C:=C-31;
if A=7 then C:=C-B;
if A>8 then C:=C-31;
if A=8 then C:=C-B;
if A>9 then C:=C-30;
if A=9 then C:=C-B;
if A>10 then C:=C-31;
if A=10 then C:=C-B;
if A>11 then C:=C-30;
if A=11 then C:=C-B;
if A>12 then C:=C-31;
if A=12 then C:=C-B;
Write(C);
End.