Аватар для Безголовый
1 / 1 / 0
Регистрация: 20.04.2011
Сообщений: 15

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

20.04.2011, 16:47. Показов 6802. Ответов 3
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Составьте программу вычисления суммы трехзначных чисел, в десятичной записи которых нет четных цифр (используя процедуры или функции).
0
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
20.04.2011, 16:47
Ответы с готовыми решениями:

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

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

Составьте программу вычисления суммы трёхзначных чисел, в десятичной записи которых нет нулей
составьте программу вычисления суммы трёхзначных чисел, в десятичной записи которых нет нулей

3
 Аватар для SuPeR XaKer
2857 / 1986 / 788
Регистрация: 23.09.2010
Сообщений: 4,877
20.04.2011, 17:31
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
function summa:real;
Var
 i:longint;
 s:real;
begin
 s:=0;
 for i:=100 to 999 do
  if ((i div 100)<>3) and ((i div 10 mod 10)<>3) and (i mod 10<>3) then s:=s+i;
 summa:=s;
end;
 
begin
 writeln('Ñóììà 3-õ çíà÷íûõ öèôð â çàïèñè êîòîðûõ íåò 3-êè :=',summa);
 readln;
end.
1
 Аватар для Безголовый
1 / 1 / 0
Регистрация: 20.04.2011
Сообщений: 15
21.04.2011, 20:15  [ТС]
Спасибо, суть уловил
Как сделать, дабы в функции проверяло только на чётность?
Ну и ещё, сказали чтобы все суммируемые числа тоже выводились

Заранее благодарю
0
 Аватар для SuPeR XaKer
2857 / 1986 / 788
Регистрация: 23.09.2010
Сообщений: 4,877
21.04.2011, 20:28
чтобы все суммируемые числа тоже выводились
if ((i div 100)<>3) and ((i div 10 mod 10)<>3) and (i mod 10<>3) then s:=s+i;
На
Pascal
1
2
3
4
5
if ((i div 100)<>3) and ((i div 10 mod 10)<>3) and (i mod 10<>3) then 
begin
 write(i:4);
 s:=s+i;
end;
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
21.04.2011, 20:28
Помогаю со студенческими работами здесь

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

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

Вычисление суммы трехзначных чисел, в десятичной записи которых нет четных цифр
Составьте программу вычисления суммы трехзначных чисел, в десятичной записи которых нет четных Цифр. С использованием подпрограммы процедур...

Найти сумму всех трехзначных чисел, в десятичной записи которых нет четных цифр
Помогите решить несколько задач. 1. заданы острый угол и сторона ромба. Построить ромб в центре экрана 2. Найти сумму всех трехзначных...

Вычисления суммы всех четырехзначных чисел, в десятичной записи которых нет двух одинаковых нечетных цифр
составьте программу вычисления суммы всех четырехзначных чисел,в десятичной записи которых нет двух одинаковых нечетных цифр. Проблема...


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

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Опции темы

Новые блоги и статьи
Вопросы на собеседованиях по микросервисам
ArchitectMsa 27.03.2025
Работодатели ищут не просто разработчиков, знающих базовые концепции, а специалистов, разбирающихся в тонкостях масштабирования, отказоустойчивости и производительности. Сейчас на первый план выходят. . .
Взаимодействие Python с REST API
py-thonny 27.03.2025
REST API - это архитектурный стиль взаимодействия компонентов распределённого приложения в сети. Python располагает функциональным набором инструментов для работы с REST API и основная библиотека для. . .
sshd restrictions, ssh access limitations
jigi33 26.03.2025
sshd restrictions | ssh access limitations рестрикции доступа на сервер sshd статья: https:/ / www. golinuxcloud. com/ restrict-allow-ssh-certain-users-groups-rhel
Компиляция C++ с Clang API
NullReferenced 24.03.2025
Компиляторы обычно воспринимаются как черные ящики, которые превращают исходный код в исполняемые файлы. Мы запускаем компилятор командой в терминале, и вуаля — получаем бинарник. Но что если нужно. . .
Многопоточное программировани­е в C#: Класс Thread
UnmanagedCoder 24.03.2025
Когда запускается приложение на компьютере, операционная система создаёт для него процесс - виртуальное адресное пространство. В C# этот процесс изначально получает один поток выполнения — главный. . .
SwiftUI Data Flow: Передача данных между представлениями
mobDevWorks 23.03.2025
При первом знакомстве со SwiftUI кажется, что фреймворк предлагает избыточное количество механизмов для передачи данных: @State, @Binding, @StateObject, @ObservedObject, @EnvironmentObject и другие. . . .
Моки в Java: Сравниваем Mockito, EasyMock, JMockit
Javaican 23.03.2025
Как протестировать класс, который зависит от других сложных компонентов, таких как базы данных, веб-сервисы или другие классы, с которыми и так непросто работать в тестовом окружении? Для этого и. . .
Архитектурные паттерны микросервисов: ТОП-10 шаблонов
ArchitectMsa 22.03.2025
Популярность микросервисной архитектуры объясняется множеством важных преимуществ. К примеру, она позволяет командам разработчиков работать независимо друг от друга, используя различные технологии и. . .
Оптимизация рендеринга в Unity: Сортировка миллиона спрайтов
GameUnited 22.03.2025
Помните, когда наличие сотни спрайтов в игре приводило к существенному падению производительности? Время таких ограничений уходит в прошлое. Сегодня геймдев сталкивается с задачами совершенно иного. . .
Образование и практика
Igor3D 21.03.2025
Добрый день А вот каково качество/ эффективность ВУЗовского образования? Аналитическая геометрия изучается в первом семестре и считается довольно легким курсом, что вполне справедливо. Ну хорошо,. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru