Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.53/15: Рейтинг темы: голосов - 15, средняя оценка - 4.53
начинающ
0 / 0 / 0
Регистрация: 25.10.2013
Сообщений: 5
1

Количество натуральных чисел на отрезке от А до В, сумма цифр которых четна

26.10.2013, 12:07. Просмотров 2924. Ответов 9
Метки нет (Все метки)

Даны два числа А и В. Подсчитайте кол-во натуральных чисел на отрезке от А до В, сумма цифр которых четна.
Если можно, то код + объяснение. Заранее спасибо.
0
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
26.10.2013, 12:07
Ответы с готовыми решениями:

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

Определить n количество трехзначных натуральных чисел у которых сумма цифр p=k
дано к. определить n количество трехзначных натуральных чисел у которых сумма цифр p=k

Определить к-количество трехзначных натуральных чисел,сумма цифр которых n (n=13).
Определить к-количество трехзначных натуральных чисел,сумма цифр которых n (n=13). Помогите...

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

Определить количество трехзначных натуральных чисел, сумма цифр которых равна целому числу n
1)Дана не допустимая последовательность положительных целых чисел а1,а2,..., оканчивающаяся нулем....

9
Jangoy
2 / 2 / 4
Регистрация: 25.10.2013
Сообщений: 10
26.10.2013, 12:43 2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
//вводим границы отрезка
writeln ('Vvedite a');
readln (a);
writeln ('Vvedite b');
readln (b);
 
//перебираем все числа в цикле от a до b
for i:=a to b do
begin
 sum:= 0;
 temp:= i;
 
//разбиваем число по разрядам и считаем сумму цифр его составляющихх
 while temp > 0 do
 begin
  sum:= sum + (temp mod 10);
  temp:= temp div 10;
 end;
 if temp mod 2 = then inc (k);
end;  
 
writeln (k);
0
начинающ
0 / 0 / 0
Регистрация: 25.10.2013
Сообщений: 5
26.10.2013, 21:42  [ТС] 3
Хм, вроде и не очень сложно. Но, ОГРОМНОЕ ЧЕЛОВЕЧЕСКОЕ СПАСИБО

Добавлено через 32 минуты
Извините, но не подскажите ли вы мне как ввести sum и temp?
0
Jangoy
2 / 2 / 4
Регистрация: 25.10.2013
Сообщений: 10
27.10.2013, 08:26 4
sum и temp - переменные целочисленного типа (integer, byte, longint), они объявляются в разделе var

в переменную sum - считается сумма цифр текущего числа
переменная temp - число из промежутка от а до b
0
начинающ
0 / 0 / 0
Регистрация: 25.10.2013
Сообщений: 5
27.10.2013, 10:49  [ТС] 5
Ясно. Большое спасибо.
0
Aimer
2 / 2 / 1
Регистрация: 28.10.2013
Сообщений: 40
28.10.2013, 09:44 6
У меня не работает, а можно полный код программы?
0
Jangoy
2 / 2 / 4
Регистрация: 25.10.2013
Сообщений: 10
29.10.2013, 15:38 7
упс, действительно есть пару ошибочек

Цитата Сообщение от Jangoy Посмотреть сообщение
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
//вводим границы отрезка
writeln ('Vvedite a');
readln (a);
writeln ('Vvedite b');
readln (b);
 
//перебираем все числа в цикле от a до b
for i:=a to b do
begin
 sum:= 0;
 temp:= i;
 
//разбиваем число по разрядам и считаем сумму цифр его составляющихх
 while temp > 0 do
 begin
  sum:= sum + (temp mod 10);
  temp:= temp div 10;
 end;
 if sum mod 2 = 0 then inc (k);
end;  
 
writeln (k);
Вам остается объявить переменные, добавить Begin End, и readln, что бы программа не закрывалась сразу как выполнится
0
Aimer
2 / 2 / 1
Регистрация: 28.10.2013
Сообщений: 40
30.10.2013, 19:02 8
Все равно не работает, не распознает inc
0
Jangoy
2 / 2 / 4
Регистрация: 25.10.2013
Сообщений: 10
31.10.2013, 16:08 9
в самое начало добавить uses crt
0
JayRose
0 / 0 / 0
Регистрация: 21.01.2014
Сообщений: 1
25.01.2014, 03:56 10
Это неправильная программа!!! Она вообще неизвестно что считает.... Допустим вводим 1 и 10 она выводит 10 хотя должна выводить 4!!!
0
25.01.2014, 03:56
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
25.01.2014, 03:56

Определить количество натуральных двухзначных чисел, сумма цифр которых равна целому числу n
Здравствуйте, помогите пожалуйста написать программы на языке паскаль.Заранее благодарю. 1)...

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

Определить количество трехзначных натуральных чисел, сумма цифр которых равна n
Определить k - количество трехзначных натуральных чисел, сумма цифр которых равна n (1<=n<=27)....


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2020, vBulletin Solutions, Inc.