Question

1. С клавиатуры вводитсядет N чисел. Сколько среди них чётных? 2. Вводится последовательность чисел, заканчивающийся 0. Определить сколько чисел в этой последовательности.

Answer 1

Var n,i,a,k: integer;
begin
write('Введите количество чисел (N): ');
readln(n);
for i := 1 to n do
begin
write('Введите число: ');
readln(a);
if a mod 2 = 0 then k:=k+1;
end;
writeln('Количество чётных чисел: ',k)
end.

var a,k:integer;
begin
write('Введите число: ');
readln(a);
while a<>0 do
begin
k:=k+1;
write('Введите число: ');
readln(a)
end;
writeln('Количество чисел в последовательности: ',k)
end.

Answer 2

1. Для решения задачи нахождения количества чётных чисел среди N чисел, нужно считать числа, одно за другим, и проверять каждое число на чётность. Если число чётное, то увеличиваем на 1 счётчик чётных чисел. После того, как введены все числа, программа выводит количество чётных чисел.

Вот пример кода на Python:

pythonCopy code
n = int(input("Введите количество чисел: "))
count = 0  # счётчик чётных чисел

for i in range(n):
    num = int(input())
    if num % 2 == 0:
        count += 1

print("Количество чётных чисел:", count)

2. Для решения задачи определения количества чисел в последовательности, заканчивающейся нулём, нужно считывать числа из ввода, пока не будет введён ноль. При каждом считывании числа увеличиваем на 1 счётчик чисел. После ввода нуля программа выводит количество считанных чисел.

Вот пример кода на Python:

pythonCopy code
count = 0  # счётчик чисел

while True:
    num = int(input())
    if num == 0:
        break
    count += 1

print("Количество чисел:", count)

Обратите внимание, что в данном примере используется бесконечный цикл while True, который прерывается оператором break, когда вводится ноль.