Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.80/55: Рейтинг темы: голосов - 55, средняя оценка - 4.80
0 / 0 / 0
Регистрация: 15.03.2016
Сообщений: 38

Вывести одно число: сумму чисел, кратных 2 и оканчивающихся на 4

01.06.2016, 22:49. Показов 11536. Ответов 2
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Написать программу, которая в последовательности натуральных чисел определяет сумму чисел, кратных 2 и оканчивающихся на 4. Программа получает на вход количество чисел в последовательности, а затем сами числа. последовательности всегда имеется число, кратное 2 и оканчивающееся на 4. Количество чисел не превышает 200. Введенные числа по модулю не превышает 400. Программа должна вывести одно число: сумму чисел, кратных 2 и оканчивающихся на 4.
Пример:
Входные данные: Выходные:
5 52
8
4
14
16
34
0
Лучшие ответы (1)
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
01.06.2016, 22:49
Ответы с готовыми решениями:

Найти сумму целых чисел, больших 30 и меньших 100, кратных 3, и оканчивающихся на 2 ,4 или 8
Найти сумму целых положительных чисел, больших 30 и меньших 100, кратных 3, и оканчивающихся на 2 ,4 или 8. Несуразный заголовок темы...

Найти сумму целых положительных чисел, больших 30 и меньших 100, кратных трем и оканчивающихся на 2, 4 или 8
Найти сумму целых положительных чисел, больших 30 и меньших 100, кратных трем и оканчивающихся на 2, 4 или 8

Найти сумму целых положительных чисел, больших 50 и меньше 100, кратных трём и оканчивающихся на 5
1. Ввести строку символов. Удалить все слова-палиндромы, имеющие максимальную длину. 2. Даны вещественные числа х1,х2...,х20. Выяснить,...

2
Эксперт С++
1624 / 954 / 782
Регистрация: 06.02.2016
Сообщений: 2,452
Записей в блоге: 31
03.06.2016, 21:37
Лучший ответ Сообщение было отмечено Алмаз Валитов как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
program pr;
 
var
  n, i, sum, m: integer;
 
begin
  sum := 0;
  writeln('Введите количество чисел последовательности');
  readln(n);
  if n <= 200 then begin
    for i := 1 to n do
    begin
      writeln('Введите ', i, ' число:');
      readln(m);
      if abs(m) <= 400 then
      begin
        if (m mod 2 = 0) and (m mod 10 = 4) then
        begin
          sum := sum + m;
        end;
      end
      else begin writeln('Число по модулю не должно превышать 400'); exit; end;
    end;
    writeln('Сумма элементов последовательности кратных 2 и оканчивающихся на 4: ', sum);
  end
  else writeln('Количество не должно превышать 200');
end.
1
0 / 0 / 0
Регистрация: 15.03.2016
Сообщений: 38
04.06.2016, 13:26  [ТС]
Спасибо
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
04.06.2016, 13:26
Помогаю со студенческими работами здесь

В последовательности натуральных чисел определить количество чисел, кратных 6, и оканчивающихся на 0
Напишите программу, которая в последовательности натуральных чисел определяет количество всех чисел, кратных 6 и оканчивающихся на 0....

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

Цикл: найти количество чисел, кратных 3 и не оканчивающихся на 7
Нужно ввести последовательность из N целых случайных чисел. (от 0 до 100) Найти количество чисел кратных 3 и не оканчивающихся на 7. Если...

Вывести сумму чисел, кратных семи
Совсем забыл паскаль. а препод для получения зачета требует решение задачи на этом языке: Вводится длина одномерного массива и его...

Составте программу, которая найдет сумму чисел, кратных 2 и произведение чисел, кратных 5
p.s.нужно использовать паскальABC p.s.s.можно использовать if,while,for. 1.Составте программу, которая найдет сумму чисел, кратных 2 и...


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

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Новые блоги и статьи
Конвертировать закладки radiotray-ng в m3u-плейлист
damix 19.02.2026
Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .
Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI
Eddy_Em 18.02.2026
Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .
Символьное дифференцирование
igorrr37 13.02.2026
/ * Программа принимает математическое выражение в виде строки и выдаёт его производную в виде строки и вычисляет значение производной при заданном х Логарифм записывается как: (x-2)log(x^2+2) -. . .
Камера Toupcam IUA500KMA
Eddy_Em 12.02.2026
Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .
И ясному Солнцу
zbw 12.02.2026
И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.
«Знание-Сила»
zbw 12.02.2026
«Знание-Сила» «Время-Деньги» «Деньги -Пуля»
SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров
8Observer8 12.02.2026
Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .
SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image)
8Observer8 11.02.2026
Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru