Вариант 1
1. Определите результат работы программы:
var s,k: integer; begin s := 8; for k := 3 to 8 do s := s + 8; writeln(s); end. | |
Ответ:________________
2. Определите результат работы программы при а=371:
var a,s:integer; begin read(a); s :=1; while a0 do begin s := s*(a mod 10); a := a div 10; end; write(s); end. | |
Ответ:____
Что находит программа? __________________________________________________
3, 4. Напишите программу двумя способами (while, for):
Найти сумму квадратов натуральных чисел от 10 до 50.
5. Напишите программу, которая в последовательности целых чисел определяет количество нечётных чисел, кратных 3. Программа получает на вход целые числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 — признак окончания ввода, не входит в последовательность). Количество чисел не превышает 1000. Введённые числа по модулю не превышают 30 000. Программа должна вывести число: количество нечётных чисел, кратных 3.
Пример работы программы:
Входные данные | Выходные данные |
4 6 15 180 0 | 1 |
Вариант 3
1. Определите результат работы программы:
var s,k: integer; begin s := 50; for k := 0 to 8 do s := s - 4; writeln(s); end. | |
Ответ:________________
2. Определите результат работы программы при x=1024:
var x,s:integer; begin read(x); s :=0; while x0 do begin s := s+(x mod 10); x := x div 10; end; write(s); end. | |
Ответ:____
Что находит программа? __________________________________________________
3, 4. Напишите программу двумя способами (while, for):
Найти произведение всех нечетных чисел от 1 до 25.
5. Напишите программу, которая в последовательности натуральных чисел определяет минимальное число, оканчивающееся на 6. Программа получает на вход количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется число, оканчивающееся на 6. Количество чисел не превышает 1000. Введённые числа не превышают 30 000. Программа должна вывести одно число — минимальное число, оканчивающееся на 6.
Пример работы программы:
Входные данные | Выходные данные |
3 26 16 36 | 16 |
Вариант 2
1. Определите результат работы программы:
var s, k: integer; begin s := 1; for k := 3 downto 0 do s := s*3; write (s); end. | |
Ответ:________________
2. Определите результат работы программы при y=5678:
var y,s:integer; begin read(y); s :=0; while y0 do begin s := s+1; y := y div 10; end; write(s); end. | |
Ответ:____
Что находит программа? __________________________________________________
3, 4. Напишите программу двумя способами (while, for):
Найти сумму первых 20 четных чисел.
5. Напишите программу, которая в последовательности натуральных чисел определяет количество чисел, кратных 4. Программа получает на вход количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется число, кратное 4. Количество чисел не превышает 1000. Введённые числа не превышают 30 000. Программа должна вывести одно число —количество чисел, кратных 4.
Пример работы программы:
Входные данные | Выходные данные |
3 16 26 24 | 2 |