Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск  
 
 
Рейтинг 4.80/25: Рейтинг темы: голосов - 25, средняя оценка - 4.80
14 / 2 / 2
Регистрация: 29.03.2011
Сообщений: 242

Из первых n натуральных чисел вывести на экран те, сумма цифр которых четна

29.03.2011, 15:54. Показов 5249. Ответов 25
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
из первых n натуральных чисел вывести на экран те, сумма цифр которых четна

Добавлено через 1 час 2 минуты
можно решить с помощью функции!!!
0
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
29.03.2011, 15:54
Ответы с готовыми решениями:

Из первых n натуральных чисел вывести на экран те, сумма цифр которых четна
Из первых n натуральных чисел вывести на экран те, сумма цифр которых четна (n вводятся с клавиатуры). В функции должен быть оформлен...

Из первых n натуральных чисел вывести на экран те, сумма цифр которых четна
Из первых n натуральных чисел вывести на экран те, сумма цифр которых четна (n вводится с клавиатуры). В функцию должен быть оформлен...

Количество натуральных чисел на отрезке от А до В, сумма цифр которых четна
Даны два числа А и В. Подсчитайте кол-во натуральных чисел на отрезке от А до В, сумма цифр которых четна. Если можно, то код +...

25
14 / 2 / 2
Регистрация: 29.03.2011
Сообщений: 242
11.05.2011, 21:01  [ТС]
Студворк — интернет-сервис помощи студентам
SuPeR XaKer, то есть программа просто сумму цифр вычисляет(((

какое должно быть вообще выполнение программы? так что ль, допустим:
вводим
10
11
12

дает результат
11
потому что сумма его цифр чётна...так?
0
 Аватар для SuPeR XaKer
2857 / 1986 / 788
Регистрация: 23.09.2010
Сообщений: 4,875
11.05.2011, 21:03
первых n натуральных
я думаю что вводим n и он выводит все натуральные числа до n у которых сумма чётна.Но вообще можно и отдельные числа вводить да проверять.
1
14 / 2 / 2
Регистрация: 29.03.2011
Сообщений: 242
11.05.2011, 21:07  [ТС]
сможешь написать код программы по условию...а не так по дурацки как я сделала
0
 Аватар для SuPeR XaKer
2857 / 1986 / 788
Регистрация: 23.09.2010
Сообщений: 4,875
11.05.2011, 21:11
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

если ты не заметила то я её в посте 11 написал.
Можно так ещё:
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
Uses
 CRT;
 
function SumC(n:longint):integer;
var
 s:integer;
begin
 s:=0;
 repeat
  s:=s+n mod 10;
  n:=n div 10;
 until n=0;
 SumC:=s;
end;
 
Var
 i,m,l:longint;
begin
 write('Введите кол-во натуральных чисел: ');
 readln(m);
 for i:=1 to m do
 begin
  write('Введите ',i,'-e число: ');
  readln(l);
  if SumC(l) mod 2=0 then writeln('Сумма цифр этого числа чётная: ',l:3);
 end;
end.
1
14 / 2 / 2
Регистрация: 29.03.2011
Сообщений: 242
11.05.2011, 21:19  [ТС]
SuPeR XaKer,спасибо. я помню эт программу. просто меня немного repeat, until пугает..боюсь заставит переделать...ну ладно. пока пусть так будет, а то чувствую я те со своей программой уже во сне буду сниться!
0
14 / 2 / 2
Регистрация: 29.03.2011
Сообщений: 242
16.05.2011, 17:07  [ТС]
как блок схему то сделать?

Добавлено через 1 минуту
как вообще в блок схеме repeat и until записывать?
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
16.05.2011, 17:07

Подсчитайте количество натуральных чисел на отрезке от А до В, сумма цифр которых четна
Тут ошибка какая-то, помогите найти var a,b,i,s,j:integer; begin readln(a); readln(b); for i:=a to b do begin s:=0; while...

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

Вывести все 3-х значные числа, сумма цифр которых четна
написал код, но работает неправильно, исправьте, пож-та var a,b,m:longint; begin a:=100; b:=0; while a<=999 do begin...

Даны 4 натуральных числа. Вывести на экран те, сумма цифр которых наибольшая
даны 4 натуральных числа. вывести на экран те, сумма цифр которых наибольшая

Найти количество чисел на отрезке от A до B, сумма цифр которых четна
Сумма цифр Ввод: стандартное устройство ввода Вывод: стандартное устройство вывода Ограничение по времени: 1 секунда Ограничение по...


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

Или воспользуйтесь поиском по форуму:
26
Ответ Создать тему
Новые блоги и статьи
Саморегулирующийся социальный контракт для сервера cross-section.
Hrethgir 14.08.2026
С кодом конечно таких глубоких размышлений пока не было, впрочем я уже привык к алгоритмизации. Суть предмета записи: снова в диалоге с нейросетью (я взял пока себе ник для учётки админа - Rector). . . .
Часы электронные
Uhbif79 12.08.2026
Выкладываю программу часов. Программа позволяет: 1. Использовать системное время и дату, 2. Есть возможность вводить время и дату вручную. 3. Реализованы 2 будильника: начало и конец рабочего дня. . . .
Часы с будильником на основе класса QLCDNumber
Uhbif79 12.08.2026
Всем добрый день, выкладываю программу часов с будильником на основе класса QLCDNumber. Здесь я пробовал самостоятельно создавал классы, впервые столкнулся с видимостью переменной одного класса из. . .
Установка MinGW GCC 16.2 и CMake
8Observer8 10.08.2026
VK Видео: https:/ / vkvideo. ru/ video-240781534_456239017 YouTube: eY5-5PyI9NM Текстовая версия
Неделя из жизни имитационной модели склада: мои кривые руки растут, откуда надо
anaschu 10.08.2026
Неделя из жизни имитационной модели склада: как я почти написал неправильную логику и что с этим делать Работаю сейчас над учебно-рабочим проектом: строю в AnyLogic имитационную модель процессов. . .
Калькулятор для расчета родства
russiannick 07.08.2026
1. Задача: Создать калькулятор для расчета родства. Родственных связей существует 8 ступеней, такие как: p - отец P - мать q - муж Q - жена b - брат B - сестра s - сын S - дочь
Мир по моей воле
kumehtar 07.08.2026
Когда-то кажется, что всё просто. Ты весь такой светлый. Причиняешь добро. Борешься за справедливость в этом тёмном мире. Потом начинаешь замечать одну неприятную вещь. Почти каждый хороший. . .
Кредитный калькулятор
Maks 05.08.2026
Решение задачи по прикладной информатике средствами 1С. Задача: Напишите приложение-калькулятор, которое помогает рассчитывать параметры кредита для аннуитетного и дифференцированного видов. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru