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

228

293

Посмотреть ответы 2

Ответы на вопрос:

loikomatveico

Информатика

4,4(50 оценок)

Program test; var a,b: integer; begin b: =0; repeat readln(a); if a mod 2< > 0 then b: b+1; until a=0; writeln(b); end. если пишешь в turbo pascal перед " end." добавь строчку "readln; ". писал на скорую руку, проверь, перед тем, как сдавать учителю ; ) чтобы вывел результат - нужно ввести с клавиатуры 0.