Форум программистов
 
О проблемах с регистрацией пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail, а тут можно восстановить пароль.

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail


Ответ
 
Опции темы
Старый 17.11.2020, 17:25   #1
motek
Новичок
Джуниор
 
Регистрация: 17.11.2020
Сообщений: 1
По умолчанию Подсчитать количество четных и нечетных среди 10 введенных с клавиатуры чисел

Помогите пожалуйста
motek вне форума Ответить с цитированием
Старый 17.11.2020, 18:07   #2
ViktorR
Участник клуба
 
Регистрация: 23.10.2010
Сообщений: 1,717
По умолчанию

1. Описываешь переменные целого типа, например, m, Nodd, Neven, i.
2. в цикле for от 1 до 10
3. Принимаешь число m и проверяешь чётность.
Если чётное, то Neven := Neven + 1
Иначе Nodd := Nodd +1
4. По окончании цикла выводишь результат на экран.


PS: Для проверки на чётность используй оператор mod. Этот оператор возвращает остаток.
Для чётного числа остаток будет равен 0, а иначе - 1.
Как-то так, ...
ViktorR вне форума Ответить с цитированием
Старый 17.11.2020, 20:51   #3
digitalis
Старожил
 
Аватар для digitalis
 
Регистрация: 04.02.2011
Сообщений: 2,857
По умолчанию

... или
Код:
  if (i and 1) > 0
digitalis вне форума Ответить с цитированием
Старый 22.11.2020, 10:48   #4
newerow1989
Я самый любопытный
Участник клуба
 
Аватар для newerow1989
 
Регистрация: 24.07.2012
Сообщений: 1,813
По умолчанию

Код:
var i,m,m0,m1:integer;
begin
   m0:=0;
   m1:=0;
   For i:=1 to 10 do
   begin
      Write('#',i,' = '); Readln(m);
      If m mod 2=0 then
         Inc(m0) else
         Inc(m1);
   end;
   Writeln('m0 = ',m0);
   Writeln('m1 = ',m1);
   Readln;
end.
С запрограммированным приветом, Неверов Евгений!
Сайт: http://newerow1989.narod.ru
[Паскаль] [Delphi]
newerow1989 вне форума Ответить с цитированием
Ответ
Купить рекламу на форуме от 7000 рублей в месяц



Опции темы


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Найти среди введенных чисел количество отрицательных нечетных чисел Мери2 Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM 3 22.05.2019 13:51
Дан целочисленный массив X(N,M).среди элементов нечетных столбцов массива найти количество четных чисел. darwin1 Паскаль, Turbo Pascal, PascalABC.NET 1 15.03.2014 16:50
Подсчитать сумму отрицательных четных чисел, количество четных чисел кратных 3 и т.д. (pascal abc .net) kardinalmax Общие вопросы .NET 1 24.01.2014 08:28
определить количество четных чисел и количество нечетных чисел массива, которые вводятся в МЕМО, вывести в поле компонента Edit. Pyxy Помощь студентам 2 21.03.2012 22:24


Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru
Пеллетный котёл Emtas
котлы EMTAS