Алгебра
Английский
Биология
География
Геометрия
История
Русский
Обществознание
Физика
Химия
Информатика
Литература
МатематикаВопрос:
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) Ни один
Ответ:
Краткое пояснение: Цикл for от 1 до 3 эквивалентен циклу while, который начинает с i=1 и увеличивает i до 3 включительно.
Рассмотрим, какой цикл while эквивалентен циклу for i:= 1 to 3 do write(i);
Цикл for i:= 1 to 3 do write(i); выполняет следующие действия:
- Устанавливает i в 1.
- Пока i меньше или равно 3, выполняет
write(i);и увеличивает i на 1.
Проверим предложенные варианты:
- A)
i:=1; while i <= 3 do begin write(i); i:=i+1; end;Этот цикл начинает с i = 1, и пока i <= 3, выводит значение i и увеличивает i на 1. Это эквивалентно циклуfor. - B)
i := 0; while i < 3 do begin i:=i+1; write(i); end;Этот цикл начинает с i = 0, увеличивает i на 1 (i становится 1) и выводит значение i. Цикл продолжается, пока i < 3. Это тоже эквивалентно циклуfor.
Оба варианта циклов while эквивалентны циклу for.
Ответ: С) Оба А и В
Похожие
- 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) Бесконечный цикл
- 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
- 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.
