Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.63/16: Рейтинг темы: голосов - 16, средняя оценка - 4.63
0 / 0 / 0
Регистрация: 13.12.2012
Сообщений: 3
1

Вводится последовательность из 15 целых чисел. Найти количество четных чисел

13.12.2012, 23:21. Просмотров 2991. Ответов 1
Метки нет (Все метки)

Ребят помогите пожалуйста . В Паскале не селён а вот тут надо работы сдать.
Вводится последовательность из 15 целых чисел. Найти:
а) количество четных чисел.
б) сколько в ней нулей.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
13.12.2012, 23:21
Ответы с готовыми решениями:

Вводится произвольная последовательность целых чисел,заканчивающаяся нулем. Найти среднее арифметическое четных чисел
Вводится произвольная последовательность целых чисел,заканчивающаяся нулем. Найти среднее...

Вводится последовательность из n целых чисел найти сумму всех нечетных чисел
Вводится последовательность из n целых чисел найти сумму всех нечетных чисел Помогите пожалуйста...

Вводится последовательность из N целых чисел. Найти сумму положительных n количество отрицательных чисел
Вводится последовательность из N целых чисел.Найти сумму положительных n количество отрицательных...

Вводится последовательность чисел до первого нуля, найти количество четных чисел. Только цикл через while
Вводится последовательность чисел до первого нуля, найти количество четных чисел.

__________________
1
17 / 14 / 18
Регистрация: 21.09.2012
Сообщений: 30
15.12.2012, 00:07 2
Лучший ответ Сообщение было отмечено S4Shadow как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
var 
 a:array[1..15] of integer;
 i,k1,k2:integer;
begin
 k1:=0;
 k2:=0;
 for i:= 1 to 15 do 
 begin
  readln(a[i]);
  if a[i]=0 then inc(k1);
  if (a[i] mod 2)=0 then inc(k2);
 end;
 writeln('В данной последовательности ',k1,' нулей и ',k2,' четных чисел.');
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
15.12.2012, 00:07

Заказываю контрольные, курсовые, дипломные работы и диссертации здесь.

Вводится последовательность из N целых чисел, найти количество нулей
1. Вводится последовательность из N целых чисел, найти количество нулей. Нужны программы на...

Вводится последовательность из N целых чисел. Найти, сколько в ней чисел равных 10
6) Вводится последовательность из N целых чисел. Найти, сколько в ней чисел равных 10.

Вводится последовательность из N целых чисел. Найти сумму положительных чисел.
Вводиться последовательность из N целых чисел. Найти сумму положительных чисел.

Вводится N произвольных целых чисел. Определить количество четных чисел
Вводится N произвольных целых чисел. Определить количество четных чисел. Рекомендации. Возможна,...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.