Решите какое-либо 1.напишите программу,которая в последовательности целых чисел определяет количество четных отрицаетльных чисел. программа получает на вход целые числа, количество введеных чисел неизвестно,последовательность чисел заканчивается числом 0(0- признак окончания ввода,не входит в последовательность. количество чисел не превышает 1000.введеные числа по модулю непревышают 30000. программа должна вывести одно число количество четных отрицательных чисел. входные данные -1 7 2 -6 0 выходные данные 1 2 напишите программу,которая в последовательности целых чисел определяет количество нечетных положительных чисел. программа получает на вход целые числа, количество введеных чисел неизвестно,последовательность чисел заканчивается числом 0(0- признак окончания ввода,не входит в последовательность. количество чисел не превышает 1000.введеные числа по модулю непревышают 30000. программа должна вывести одно число количество нечетных положительных чисел: -1 7 2 -6 0 выходные данные 1
serob1223
1
17.05.2019 21:30
4
Другие вопросы по теме Информатика
insaf1282
02.09.2019 07:50
gbafujhobr
18.05.2020 16:15
ZloYDedyskA
18.05.2020 16:16
xacku1
18.05.2020 16:16
ccallul
18.05.2020 16:16
Choch121
16.10.2020 05:24
aliha001
31.05.2019 06:20
ЭвелинаРожкова
15.09.2020 17:21
infourazyukp092y0
15.09.2020 17:21
Популярные вопросы
- Втреyгольнике abc сторонa ab =21см,сторона bc =7 см,угол b =90°. найдите тангенс...
3 - Ширина прямоугольника 8 м.это в 3 раза меньше,чем длина. найти периметр и площадь...
3 - Как решить в столбик 98 разделить на 2...
3 - Перед зимней спячкой медведь отьедается за ( ) сунет в муравейник лапу -с( ? )...
2 - При записи номеров страниц в детской книжке было использовано 177цыфр (страницы...
1 - *revrite the sentences in the passive. 1) they often use the hotel for business...
3 - Участок земли имеет форму прямоугольника длина которого26000 см а ширина на 30...
1 - На оге по , в номере 15.3 можно ли выписывать цифры предложений для первого примера?...
2 - Решите уравнение ( а - 86) * 204 = 7548...
1 - Втреугольниках abc и pqr ab=pq, ac=pk и bc=qr угол q=50 градусов. найдите угол...
2
1)
Program pr;
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.
2)
Program pr;
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.