Алгебра
Английский
Биология
География
Геометрия
История
Русский
Обществознание
Физика
Химия
Информатика
Литература
МатематикаВопрос:
19. Чему равно к? k := 0; for i:= 1 to 10 do if i mod 3 = 0 then k := k + 1;
Ответ:
Краткое пояснение: Программа считает, сколько раз числа от 1 до 10 делятся на 3 без остатка.
Разберем, что делает этот код:
k := 0инициализирует переменную k нулем.- Цикл
for i:= 1 to 10 doперебирает числа от 1 до 10. - Условие
if i mod 3 = 0 thenпроверяет, делится ли число i на 3 без остатка. - Если число делится на 3 без остатка, то
k := k + 1увеличивает значение k на 1.
Какие числа от 1 до 10 делятся на 3 без остатка?
- 3, 6, 9
Таким образом, k будет увеличено на 1 три раза.
Ответ: k = 3
Похожие
- 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
- 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.
