Напишите программку, которая в последовательности целых чисел определяет количество нечетных

Question

Напишите программку, которая в последовательности целых чисел определяет количество нечетных

Напишите программку, которая в последовательности целых чисел определяет количество нечетных положительных чисел. Программа получает на вход целые положительные числа, количество введенных чисел безызвестно, последовательность чисел кончается числом 0. Количество введенных чисел не превосходит 1000. Все числа не превосходят 30 000.
И блок схему пожалуйста

Задать свой вопрос

Борька Колчеев
Информатика
2019-08-19 19:07:07
0
2

2 ответа

, оставишь ответ?

Имя:*

E-Mail:

Похожие вопросы

отыскать вектор p, зная, что его длина одинакова 14 и он

Найдите значение выражения 3/5*75

Ребята помогите пожалуйста В какой массе магнитного железняка Fe3O4 имеющего 0,1

помогите пожалуйста 9 номер

Помогите написать , махонький рассказ о хоть какой реки Рф

Подчеркни глаголы от которых нельзя образовать форму истинного времени. Почему?Лече

Хорды Окружности AB И CD Пересекаются. Найдите Угол BAD,если Угол ACD

Составьте с одним из слов (позёмка,изморозь, пурга) распространённое предложение.

Решить уравнение y039;039;-4y039;+13y=0 Безотлагательно Помогите

Аргинская 3 класс 1 часть 2231.Укажи порядок деяний в каждом выражении

Данил Куковякин · Answer 1 · 2019-08-19 19:15:11+3:00

uses crt;

Var a,k,k1:integer;

Begin
Writeln('Введите a');
readln(a);
k1:=1;
k:=0;
While (alt;gt;0) and (k1lt;1000) do
Begin
if (alt;0) and (a mod 2=0) and (абс(a)lt;=30000) then k:=k+1;
k1:=k1+1;
readln(a);
end;
Writeln('k=',k);
readln;
end.

Роман Демянюк · Answer 2 · 2019-08-19 19:18:20+3:00

Роман Демянюк 2019-08-19 19:18:20

Ради каких то 5 баллов , даже редактор не открою

Любовь Гребенчикова 2019-08-19 19:20:33

чсв повышаю

О проекте

Напишите программку, которая в последовательности целых чисел определяет количество нечетных

Добро пожаловать!