Напишите программу, которая в последовательности целых чисел определяет количество нечетных положительных чисел. программа получает на вход целые положительные числа, количество введенных чисел неизвестно, последовательность чисел заканчивается числом 0. количество введенных чисел не превышает 1000. все числа не превосходят 30 000. и блок схему
elinapak
2
17.08.2019 14:20
0
Другие вопросы по теме Информатика
ulzhalgasamangEldy
08.09.2019 03:20
Danielkz02
08.09.2019 03:20
Levix322
08.09.2019 03:20
annapetrovakons
08.09.2019 03:20
katarina1002
24.03.2020 01:52
smolikarina
10.12.2019 08:07
FayaKuraeva
10.12.2019 08:11
Популярные вопросы
- Объясните как решать: 0,1 · (-10)⁴+5 · (-10)³+33=...
2 - Определите, каким и от каких слов образованы слова. 1. платочек - 2....
3 - Площадь криволинейной трапеции и интеграл. 1.найдите площадь фигуры,ограниченной...
2 - Выражение: а) c+239-93 б)485-483+d...
1 - Как называется населенный пункт в россии с численностью жителей 13 тыс.человек,выполняющих...
3 - Xiii. rewrite the following sentences in direct speech. 1. he told me...
1 - Сtranslate the given sentences. mind the first, the second and the third...
2 - Подводная лодка двигалась 8 ч со скоростью 30 км/ч. после этого ей осталось...
1 - Секундная стрелка вдвое короче часовой. в какой из них линейная скорость...
2 - Чему равен объём прямоугольного параллелепипеда у которого длиной 0.3м...
3
uses crt;
Var a,k,k1:integer;
Begin
Writeln('Введите a');
readln(a);
k1:=1;
k:=0;
While (a<>0) and (k1<1000) do
Begin
if (a<0) and (a mod 2=0) and (abs(a)<=30000) then k:=k+1;
k1:=k1+1;
readln(a);
end;
Writeln('k=',k);
readln;
end.