С клавиатуры вводятся N чисел. Определить кол-во нечетных и вывести на экран.

Паскаль

Question

Информатика

Кандидий

3 февраля, 06:43

С клавиатуры вводятся N чисел. Определить кол-во нечетных и вывести на экран.

Паскаль

+1

Ответы (1)

Знаете ответ на вопрос?

Кириллична · Answer 1

Program test;

var

a, b:integer;

begin

b:=0;

repeat

readln (a) ;

if a mod 20 then b:b+1;

until a=0;

writeln (b) ;

end.

Если пишешь в Turbo Pascal перед " end." добавь строчку "readln; ".

Писал на скорую руку, проверь, перед тем, как сдавать учителю;)

Чтобы вывел результат - нужно ввести с клавиатуры 0.

С клавиатуры вводятся N чисел. Определить кол-во нечетных и вывести на экран.Паскаль

С клавиатуры вводятся N чисел. Определить кол-во нечетных и вывести на экран.

Паскаль