Форум программистов, компьютерный форум, киберфорум
PascalABC.NET
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
0 / 0 / 0
Регистрация: 16.12.2020
Сообщений: 10

сумма чисел кратных 3 и не кратные 2

22.12.2020, 16:24. Показов 517. Ответов 0
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Добавить в данную программу условие не кратные 2 (Что-бы при вводе числа, показывало кратные 3 и не кратные 2

var n, d, k, s: integer;
begin
readln(n);
s := 0;
while n > 10 do begin
d := n mod 10;
if d mod 3 = 0 then begin
s := s + d
end;
n := n div 10
end;
if s > 0 then
write(k, ' ', s)
else
write('NO')
end.
0
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
22.12.2020, 16:24
Ответы с готовыми решениями:

сумма чисел кратных 3 и не кратные 2
Добавить в данную программу условие не кратные 2 и убрать лишние массивы (Что бы было только кратные 3 и не кратные 2) Добавлено через...

сумма чисел кратных 3 и не кратные 2
Добавить в данную программу условие не кратные 2 и убрать лишние массивы (Что бы было только кратные 3 и не кратные 2). При вводе числа,...

Найти все числа, не кратные 5 и кратные 3, сумма цифр которых также не кратные 5 и кратна 3
Найти все числа некратные пяти и кратные 3, и сумма цифр которых также некратные пяти и кратна 3. надо решить языке с++

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

Сумма чисел от 1 до 1000 кратные 3
Понять не могу где ошибка при просмотрах на других сайтах показывает другой результат (233168) using System; using...

Сумма чисел, кратных 3
Даны 4 целых числа. Определить сумму тех из них, которые кратны 3. Мой код: #include<stdio.h> #include<conio.h> ...

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

Сумма n чисел кратных 3m
плз помогите, нужно задать 2 лабараторные по асемблеры(acm) / 1ая посчитать сумму 5ти чисел вводимых с клавиатуры ( ну с этой задачей...

сумма чисел кратных 3
Изменить данную программу, убрав из неё лишнии массивов и условия (Что-бы было только сумма чисел кратные 3) var n, d, k, s: integer;...


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

Или воспользуйтесь поиском по форуму:
1
Ответ Создать тему
Новые блоги и статьи
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 На первой гифке отладочные линии отключены, а на второй включены:. . .
SDL3 для Web (WebAssembly): Идентификация объектов на Box2D v3 - использование userData и событий коллизий
8Observer8 02.03.2026
Содержание блога Финальная демка в браузере. Итоговый код: finish-collision-events-sdl3-c. zip Сканируйте QR-код на мобильном и вы увидите, что появится джойстик для управления главным героем. . . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru