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.
более месяца назад
Ваш ответ:
Вы можете из нескольких рисунков создать анимацию (или целый мультфильм!). Для этого нарисуйте несколько последовательных кадров
и нажмите кнопку Просмотр анимации.
