Предмет: Информатика,
автор: Ejik17
С клавиатуры вводятся N чисел. Определить кол-во нечетных и вывести на экран.
Паскаль
Ответы
Автор ответа:
0
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.
Автор ответа:
0
Спасибо
Автор ответа:
0
Ну вообще, не то
Автор ответа:
0
Хотя не, работает. Просто нужно дописать чутка
Автор ответа:
0
И тип longint должен быть, ибо число может быть большим
Автор ответа:
0
Вряд ли кому-то взбредёт в голову вводить такие большие числа ;)
Похожие вопросы
Предмет: Алгебра,
автор: Polinapiterina
Предмет: Математика,
автор: Аноним
Предмет: Русский язык,
автор: Salimarakiseva32
Предмет: Алгебра,
автор: allall1
Предмет: Математика,
автор: ricardo