С клавиатуры вводятся N чисел. Определить кол-во нечетных и вывести на экран. Паскаль
Answers & Comments
angryfukse 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.
Answers & Comments
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.