Var
n, k, a, i: integer;
begin
write('Введите кол-во чисел: ');
readln(n);
for i:=1 to n do
begin
read(a);
if ((a mod 2) = 1) then inc(k);
end;
write(k);
end.
С использованием оператора repeat:
var
n, k, a, i: integer;
begin
write('Введите кол-во чисел: ');
readln(n);
repeat
read(a);
if ((a mod 2) = 1) then inc(k);
inc(i);
until i=n;
write(k);
<span>end.</span>
n - кол-во чисел, k - кол-во нечётных чисел, a - число
Все числа вводятся через пробел
Ответ:
20
Объяснение:
Пацан, решение сам в соей голове додумывай - это уж слишком легко
1. Помыть картофель
2. Положить в кастрюлю
3. Помытт
4. Вылить воду
5. Почистить
6. Поставить на печь
7. Включить печь
8. Жарится
9. Ждать 40 минут
Var ch:integer;beginread(ch);while ch>0 do begin if (ch mod 2)=0 then begin ch:=ch div 2; write(2); end else begin ch:=ch-1; write(1); end; end;end.