Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Форум программистов и сисадминов Киберфорум > Форум программистов > Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
1 / 1 / 0
Регистрация: 06.04.2011
Сообщений: 117

Сформировать список целых чисел и посчитать сумму четных чисел

23.03.2013, 22:23. Показов 1938. Ответов 0
Метки нет (Все метки)
Студворк — интернет-сервис помощи студентам
привет.
есть готовая задачка с условием
Дано целое число А. Определить сумму четных цифр в числе
вы не могли бы помочь переделать ее под такое условие:
Сформировать список целых чисел и посчитать сумму четных чисел (очередь)
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17

program N72927501; 
var A:longint; 
    s:byte; 
begin 
  write('Введите число: '); 
  readln(A); 
  s := 0; 
  A := abs(A); 
  while A > 0 do 
  begin 
    if not odd(A) then {или if A mod 2 = 0 then} 
      inc(s, A mod 10); {или s := s + A mod 10;} 
    A := A div 10 
  end; 
  writeln('Сумма чётных цифр = ', s); 
  readln 
end.
0
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
 23.03.2013, 22:23
Ответы с готовыми решениями:

Сформировать массив из целых чисел от 2 до N, подсчитать сумму квадpатов четных и сумму квадратов нечетных чисел
Сформировать в программе массив из целых чисел от 2 до N. Подсчитать сумму квадpатов четных и сумму квадратов нечетных чисел. pascal:)

Сформировать в программе массив из целых чисел от 2 до N. Подсчитать сумму квадратов четных и сумму квадратов нечетных чисел
Сформировать в программе массив из целых чисел от 2 до N. Подсчитать сумму квадратов четных и сумму квадратов нечетных чисел.

Сформировать массив целых случайных чисел в диапазоне от 0 до 10. Подсчитать сумму четных и нечетных
2)Сформировать массив целых случайных чисел в диапазоне от 0 до 10. Подсчитать сумму четных и нечетных.

0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
 23.03.2013, 22:23
Помогаю со студенческими работами здесь

Дана последовательность целых чисел. Сформировать множество четных чисел
Дана последовательность целых чисел. Сформировать множество четных чисел Скажите, если кто знает как решить эту задачу = (

В массиве из 10 целых чисел сосчитать сумму чётных и сумму нечётных чисел. Вывести наибольшую из этих сумм
По данному условию была написана программа. Все работает как надо, в итоге заменяется правильно. Но в окне вывода, выводимые значения max и...

Создать список целых чисел, вставить после всех четных чисел 0
Из текстового файла записать в файл целых чисел все числа кратные заданном

Создать список целых чисел, вставить после всех четных чисел в нем 0
Помогите пожалуйста решить задачу: Создать список целых чисел, вставить после всех четных чисел в нем 0.

Ввести с клавиатуры список целых чисел. Найти сумму чисел, которые входят в список по одному разу
Прошу помочь с заданием по Турбо Прологу. Мне кажется, что для людей которые понимают и разбираются в Прологе это задание будет не...


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

Или воспользуйтесь поиском по форуму:
1
Ответ Создать тему
Новые блоги и статьи
делаю науч статью по влиянию грибов на сукцессию
anaschu 13.03.2026
прикрепляю статью
 SDL3 для Desktop (MinGW): Создаём пустое окно с нуля для 2D-графики на SDL3, Си и C++
8Observer8 10.03.2026
Содержание блога Финальные проекты на Си и на C++: hello-sdl3-c. zip hello-sdl3-cpp. zip Результат:
 Установка CMake и MinGW 13.1 для сборки С и C++ приложений из консоли и из Qt Creator в EXE
8Observer8 10.03.2026
Содержание блога MinGW - это коллекция инструментов для сборки приложений в EXE. CMake - это система сборки приложений. Здесь описаны базовые шаги для старта программирования с помощью CMake и. . .
Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки
Neotwalker 08.03.2026
Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .
Модульная разработка через nuget packages
DevAlt 07.03.2026
Сложившийся в . Net-среде способ разработки чаще всего предполагает монорепозиторий в котором находятся все исходники. При создании нового решения, мы просто добавляем нужные проекты и имеем. . .
Модульный подход на примере F#
DevAlt 06.03.2026
В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .
Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование
8Observer8 05.03.2026
Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. Сканируйте QR-код на мобильном. Вращайте камеру одним пальцем,. . .
SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D
8Observer8 04.03.2026
Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Поддержать - Реклама - Условия использования - Обратная связь
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru