Алгебра
Английский
Биология
География
Геометрия
История
Русский
Обществознание
Физика
Химия
Информатика
Литература
МатематикаВопрос:
24. Какое условие нужно для 4 повторений? x:= 1; while do begin writeln(x); x := x + 1; end; A) x <= 4 B) x < 4 C) x = 4 D) x >= 4
Ответ:
Краткое пояснение: Чтобы цикл выполнился 4 раза, нужно чтобы условие было истинным, пока x не станет равным 5.
Разберем, что делает код:
x := 1- переменной x присваивается значение 1.while [условие] do- цикл выполняется, пока условие истинно.writeln(x)- внутри цикла выводится значение x.x := x + 1- значение x увеличивается на 1.
Чтобы цикл выполнился 4 раза, x должен принимать значения 1, 2, 3, 4.
Проверим варианты условий:
- A)
x <= 4- цикл выполняется, пока x меньше или равно 4. Значения x: 1, 2, 3, 4. Цикл выполняется 4 раза. - B)
x < 4- цикл выполняется, пока x меньше 4. Значения x: 1, 2, 3. Цикл выполняется 3 раза. - C)
x = 4- цикл выполняется, только если x равно 4. Значения x: 1. Цикл не выполняется. - D)
x >= 4- цикл выполняется, пока x больше или равно 4. Значения x: 1. Цикл не выполняется.
Ответ: A) x <= 4
Похожие
- 16. Какой результат даст цикл? for i:= 1 to 6 do if i mod 2 = 0 then write(1, ''); A) 123456 B) 246 C) 135 D) 24
- 17. Можно ли внутри цикла for изменять переменную-счетчик і? А) Да, всегда В) Нет, это вызовет ошибку С) Да, но не рекомендуется D) Только в АBC.NET
- 18. Что выведет программа? var i: integer; begin for i := 1 to 3 do writeln(i* i); end. A) 123 В) 149 (каждое с новой строки) С) 149 в одной строке D) 123456789
- 19. Чему равно к? k := 0; for i:= 1 to 10 do if i mod 3 = 0 then k := k + 1;
- 20. Какой фрагмент выведет 12345? A) for i := 5 downto 1 do write(i); B) for i := 1 to 5 do write(i); C) for i := 1 to 5 do write(i,''); D) for i := 5 downto 1 do write(i, '');
- 21. Сколько раз выполнится цикл? k := 3; while k > 0 do k=k-1; A) 2 B) 3 C) 4 D) Бесконечно
- 22. Что произойдет? n := 10; while n < 5 do writeln(n); A) Выведет 10 В) Выведет 10,9,8... С) Ничего не выведет D) Бесконечный цикл
- 23. Какой цикл эквивалентен for i:= 1 to 3 do write(1);? A) i:=1; while i <= 3 do begin write(i); i:=i+1; end; B) i := 0; while i < 3 do begin i:=i+1; write(i); end; С) Оба А и В D) Ни один
- 25. Что выведет код? a := 10; while a > 0 do begin if a mod 2 = 1 then write(a,''); a := a - 1; end;
- 26. Какой цикл while никогда не выполнит тело? A) while 1 = 1 do B) while false do C) while 5 > 2 do D) while true do
- 27. Чему будет равно ѕ? s := 0; i := 1; while i <= 5 do begin s:= s + i; i:=i+1; end;
- 28. Что выведет программа? var n: integer; begin n := 123; while n > 0 do begin write(n mod 10); n := n div 10; end; end.
