Вопрос по информатике:
Циклы в языке программирования Pascal
Дано n целых чисел. Сколько из них являются нечётными?
Пожаловаться
- 24.12.2017 03:09
- Информатика
- remove_red_eye 16151
- thumb_up 29
Ответы и объяснения 1
Var
A,n,k:integer;
Begin
Write('n = ');ReadLn(n);
Write('Введите целые числа(',n,' шт.): ');
k:=0;
For n:= 1 to n do
Begin
Read(A);
if A mod 2 = 0 then k:=k+1
End;
WriteLn('Кол-во чётных чисел: ',k)
End.
A,n,k:integer;
Begin
Write('n = ');ReadLn(n);
Write('Введите целые числа(',n,' шт.): ');
k:=0;
For n:= 1 to n do
Begin
Read(A);
if A mod 2 = 0 then k:=k+1
End;
WriteLn('Кол-во чётных чисел: ',k)
End.
Пожаловаться
- 25.12.2017 12:14
- thumb_up 41
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Новые вопросы
Интересные вопросы