Алгебра
Английский
Биология
География
Геометрия
История
Русский
Обществознание
Физика
Химия
Информатика
Литература
МатематикаВопрос:
16. Какой результат даст цикл? for i:= 1 to 6 do if i mod 2 = 0 then write(1, ''); A) 123456 B) 246 C) 135 D) 24
Ответ:
Краткое пояснение: Цикл перебирает числа от 1 до 6, и если число четное, то выводит его.
Разберем, что делает этот код:
- Цикл
for i:= 1 to 6 doперебирает числа от 1 до 6. - Условие
if i mod 2 = 0 thenпроверяет, является ли число i четным. Операцияmodвозвращает остаток от деления. Если остаток равен 0, значит число четное. - Если число четное, то
write(1, '')выводит это число.
Какие числа будут выведены?
- i = 1: 1 mod 2 = 1 (нечетное, не выводится)
- i = 2: 2 mod 2 = 0 (четное, выводится 2)
- i = 3: 3 mod 2 = 1 (нечетное, не выводится)
- i = 4: 4 mod 2 = 0 (четное, выводится 4)
- i = 5: 5 mod 2 = 1 (нечетное, не выводится)
- i = 6: 6 mod 2 = 0 (четное, выводится 6)
Таким образом, будут выведены числа 2, 4 и 6.
Ответ: B) 246
Похожие
- 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) Ни один
- 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.
