Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.80/15: Рейтинг темы: голосов - 15, средняя оценка - 4.80
Aimer
2 / 2 / 1
Регистрация: 28.10.2013
Сообщений: 40
1

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

30.10.2013, 19:19. Просмотров 2883. Ответов 11
Метки нет (Все метки)

Даны два числа A и B. Подсчитайте количество натуральных чисел на отрезке от A до B,
сумма цифр которых четна.
Программа получает на вход два натуральных числа A и B, не превосходящих 109
, A ≤ B.
Программа должна вывести одно число — количество натуральных чисел, больше или
равных A и меньших или равных B, сумма цифр которых четна.
0
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
30.10.2013, 19:19
Ответы с готовыми решениями:

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

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

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

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

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

11
Puporev
Модератор
58931 / 44609 / 30787
Регистрация: 18.05.2008
Сообщений: 106,890
30.10.2013, 19:26 2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Цитата Сообщение от Aimer Посмотреть сообщение
сумма цифр которых четна.
Pascal
1
2
3
4
5
6
7
8
9
read(x);
y:=x;
s:=0;
while y>0 do
 begin
  s:=s+y mod 10;
  y:=y div 10;
 end;
if s mod 2=0 then k:=k+1;
Добавлено через 1 минуту
Цитата Сообщение от Aimer Посмотреть сообщение
не превосходящих 109
Наверняка там написано 109
1
Aimer
2 / 2 / 1
Регистрация: 28.10.2013
Сообщений: 40
30.10.2013, 19:28  [ТС] 3
Так нам нужно ввести 2 числа, а мы тут вводим одно
0
Puporev
Модератор
58931 / 44609 / 30787
Регистрация: 18.05.2008
Сообщений: 106,890
30.10.2013, 19:30 4
Я вам решать не собираюсь, я показал как найти суму цифр и определить ее четность.
1
Aimer
2 / 2 / 1
Регистрация: 28.10.2013
Сообщений: 40
30.10.2013, 19:31  [ТС] 5
Цитата Сообщение от Puporev Посмотреть сообщение
Я вам решать не собираюсь, я показал как найти суму цифр и определить ее четность.
Но я ничего не понимаю из этого
0
Puporev
Модератор
58931 / 44609 / 30787
Регистрация: 18.05.2008
Сообщений: 106,890
30.10.2013, 19:36 6
Цитата Сообщение от Aimer Посмотреть сообщение
Но я ничего не понимаю из этого
А я виноват? Учитесь думать и писать, это все чем могу помочь.
0
Aimer
2 / 2 / 1
Регистрация: 28.10.2013
Сообщений: 40
30.10.2013, 19:39  [ТС] 7
Цитата Сообщение от Puporev Посмотреть сообщение
А я виноват? Учитесь думать и писать, это все чем могу помочь.
Чтобы учиться думать и писать, люди должны объяснять, а не кидать кусок программы.Тем что Вы мне бросили кусок программы, Вы мне ничем не помогли.
У ученика должен быть учитель, который его учит,мне интересно Вам в школе так же объясняли?
0
Aimer
2 / 2 / 1
Регистрация: 28.10.2013
Сообщений: 40
30.10.2013, 19:47  [ТС] 8
Цитата Сообщение от Puporev Посмотреть сообщение
Я вам решать не собираюсь, я показал как найти суму цифр и определить ее четность.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
var
  a,b,i,j,k,s: integer;
begin
  repeat
    readln(a);
    readln(b);
  until a<b;
  k:=0;
  for i:=a to b do
  if i>0 then begin
    j:=i; s:=0;
    while j>0 do
    begin
      s:=s+j mod 10;
      j:=j div 10;
    end;
    if s mod 2=0 then inc(k);
  end;
  writeln(k);
end.
Что нужно исправить,чтобы при вводе 10 10 выдавало 0?Подскажите пожалуйста
0
Puporev
Модератор
58931 / 44609 / 30787
Регистрация: 18.05.2008
Сообщений: 106,890
30.10.2013, 19:53 9
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Цитата Сообщение от Aimer Посмотреть сообщение
У ученика должен быть учитель, который его учит
Извините, я к вам не нанимался, просто показал как делать наиболее сложную для вас часть программы.
А то что вы не умеете ни ввести данные, ни вывести результат,это не мои проблемы.

Добавлено через 5 минут
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
var
  a,b,i,j,k,s: integer;
begin
repeat
 readln(a,b);
until (a>0)and(b>=a);//в условии так , оба числа натуральные и b>=a
k:=0;
for i:=a to b do
j:=i;
s:=0;
while j>0 do
 begin
  s:=s+j mod 10;
  j:=j div 10;
 end;
if s mod 2=0 then inc(k);
writeln(k);
end.
2
Aimer
2 / 2 / 1
Регистрация: 28.10.2013
Сообщений: 40
30.10.2013, 19:59  [ТС] 10
Теперь при вводе 10 20 выдает 1, а должно выдавать 6.
0
Puporev
Модератор
58931 / 44609 / 30787
Регистрация: 18.05.2008
Сообщений: 106,890
30.10.2013, 20:03 11
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Списал у вас не глядя..

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
var
  a,b,i,j,k,s: integer;
begin
repeat
 readln(a,b);
until (a>0)and(b>=a);//в условии так , оба числа натуральные и b>=a
k:=0;
for i:=a to b do
 begin
  j:=i;
  s:=0;
  while j>0 do
   begin
    s:=s+j mod 10;
    j:=j div 10;
   end;
  if s mod 2=0 then inc(k);
 end;
writeln(k);
end.
0
Aimer
2 / 2 / 1
Регистрация: 28.10.2013
Сообщений: 40
30.10.2013, 20:08  [ТС] 12
Цитата Сообщение от Puporev Посмотреть сообщение

Добавлено через 5 минут
СПАСИБО ВАМ!!!
0
30.10.2013, 20:08
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
30.10.2013, 20:08

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Определить количество натуральных чисел из интервала от 100 до 500, сумма цифр которых равна 15.
Помогите пожалуйста решить две задачи. Очень прошу. Срочно! Заранее благодарен =) Вот собственно...

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

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


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

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

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