Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > .NET Frameworks (точка нет фреймворки) > Общие вопросы .NET
Регистрация

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

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 24.01.2014, 02:43   #1
kardinalmax
Новичок
Джуниор
 
Регистрация: 24.01.2014
Сообщений: 1
По умолчанию Подсчитать сумму отрицательных четных чисел, количество четных чисел кратных 3 и т.д. (pascal abc .net)

Пользователь вводить числа до нуля. Надо:
1. Подсчитать сумму все отрицательных четных чисел
2. Подсчитать количество четных чисел кратных 3.
3. Подсчитать сумму и количество трехзначных нечетных чисел
kardinalmax вне форума Ответить с цитированием
Старый 24.01.2014, 09:28   #2
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,238
По умолчанию

Код:
SNegEven := 0;
CntEven3 := 0;
SumOddDigits3 := 0;
CntOddDigits3 := 0;
WriteLn('Введите числа по одному, окончание ввода - число 0');
repeat
  Read(A);
  if (A mod 2) = 0 then begin {значит A - чётное}
      if A<0 then  SNegEven :=  SNegEven + A;
      if (A mod 3) = 0 then  Inc(CntEven3);
  end
  else  {значит A - нечётное}
    if (abs(A)>=100)  and (abs(A)<=999) then begin
       SumOddDigits3 := SumOddDigits3 + A;
       Inc(CntOddDigits3);
    end;
until A=0;

WriteLn('сумма всех отрицательных четных чисел = ', SNegEven);
WriteLn('количество четных чисел кратных 3 =', CntEven3);
WriteLn('сумма трехзначных нечетных чисел =', SumOddDigits3);
WriteLn('количество трехзначных нечетных чисел = ', CntOddDigits3);

p.s. Имхо, зря Вы тему в разделе программирования под .NET разместили! PascalABC.NЕT ближе к Паскалю, чем к .NET

Последний раз редактировалось Serge_Bliznykov; 24.01.2014 в 09:31.
Serge_Bliznykov вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
подпрограмма-функция нахождения четных чисел Pascal ABC программирование Помощь студентам 14 03.06.2013 22:07
подпрограмма нахождения четных чисел Pascal ABC программирование Паскаль, Turbo Pascal, PascalABC.NET 1 02.06.2013 00:50
Заданы массивы А(15).В(17),С(10),состоящие из положительных и отрицательных чисел. Определить в каком массиве,больше четных чисел. Richik123 Паскаль, Turbo Pascal, PascalABC.NET 1 19.06.2012 12:24
определить количество четных чисел и количество нечетных чисел массива, которые вводятся в МЕМО, вывести в поле компонента Edit. Pyxy Помощь студентам 2 21.03.2012 23:24