tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Ввести с клавиатуры 10 целых
Ввести с клавиатуры 10 целых чисел. посчитать количество нечетных. (паскаль)
nyatteloiv
2 26.07.2019 07:40
4
Ответы
Egoraptor
07.08.2020 14:28
Cost=10;
var a:array[1..N] of integer;
i, s: integer;
for I:=1 to N do
readln (a[i]);
s:=0;
if a[i] mob 2 <> 0 then
s:=s+1;
writeln ('s=' , s);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
ника1234551
08.05.2020 15:13
с 11,12 заданиями по информатике 10 класс....
vany4189
08.05.2020 15:14
Сколько значащих нулей в двоичной записи числа 84024 – 41605 + 21024 – 126?...
Bdbdbbfbrhr
08.05.2020 15:14
Укажите, сколько раз выполнится тело цикла с заданным заголовком: FOR i: = -1 TO 2 DO ...
Настёна30072003
09.02.2022 08:28
,сделайте эту работупрактическая работа номер 1 и 2очень !...
Артём24532523
09.02.2022 08:28
просто поставьте результат в фото очень надо риал...
GiTToS
20.05.2019 03:30
Вычеслите сумму квадратов всех четных чисел от1 до n...
dianapavliska2
20.05.2019 03:30
При приготовление пиццы выпекается большой хлебный корж и посыпается тёртым сыром.к сыру добавляются разные продукты, обеспечивающие тот или иной вкус.в распоряжении марчерлло...
Milk2111
20.05.2019 03:30
Написать на языке паскаль программу для вычесления выражения s=(2+y) (x-y)...
danielan2003
13.12.2020 23:50
1. Заполните таблицу истинности значениями A∨B∨¬C2.Заполните таблицу истинности значениями (¬A&C)∨(B&C)3. Определите значение логического выражения ¬(A C)∧¬(A...
Maxguvci
13.05.2021 08:48
Соберите буквы в ячейках по цвету и найдите термины Например, Браузер слово составлено из букв, расположенных в оранжевых ячейках ...
Популярные вопросы
Известно, что сумму квадратов последовательных натуральных чисел от 1 до n...
1
Задание.3. Напиши эссе-рассуждение на одну из тем.1.Книга-величайшее изобретение.2.Компьютер-величайшее...
1
Яку людину називають світлою...
2
Теңбүйірлі үшбұрыштың бүйір қабырғасы жанасу нүктесі арқылы төбесінен есептегенде...
1
❤❤❤❤❤❤ дам корону❤❤ хотя бы тока с первым 1)укажите тип речи текста и укажите...
3
Найди дисперсию выборки. 12, 13, 14, 14, 15, 16, 16, 16D(X) = 1,5D(X) = 2,25D(X) =...
3
4. Complete the sentences with the correct preposition. 1. I‘d like to book...
3
5. При равномерном перемещении груза массой 15 кг по наклонной плоскости динамометр,...
1
Вычислите массы соли и воды, необходимые для приготова- раствора массой 50...
2
Спортивная ходьба написать реферат...
2
var a:array[1..N] of integer;
i, s: integer;
for I:=1 to N do
readln (a[i]);
s:=0;
if a[i] mob 2 <> 0 then
s:=s+1;
writeln ('s=' , s);
end.