Напишите программу(Паскаль), которая считывает с клавиатуры последовательность символов и...

Question

Напишите программу(Паскаль), которая считывает с клавиатуры последовательность символов и выводит на экран количество нечетных цифр :с

Answer 1

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);
end.

 n - кол-во чисел, k - кол-во нечётных чисел, a - число
Все числа вводятся через пробел

Comments

i не описана в разделе var

---

Спасибо, исправил. Сонный уже просто :)

---

Ну ты сегодня на славу потрудился!)))

---

а можно с использованием оператора REPEAT? :с

---

Можно, секунду

---

Господи, спасибо тебе, чудесный человек!!!

---

Только если так.