Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.67/6: Рейтинг темы: голосов - 6, средняя оценка - 4.67
mender
0 / 0 / 0
Регистрация: 14.12.2013
Сообщений: 5
1

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

29.09.2014, 17:05. Просмотров 1257. Ответов 3
Метки нет (Все метки)

Тут ошибка какая-то, помогите найти
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
var a,b,i,s,j:integer;
begin
readln(a);
readln(b);
for i:=a to b do begin
s:=0;
 while ( i<>0 ) do
 begin
   s := s + (i mod 10);
   i := i div 10;
 end;//while
 if (s mod 2=0) then
 j:=j+1;
 end;//for
 writeln(j);
 end.
0
Лучшие ответы (1)
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
29.09.2014, 17:05
Ответы с готовыми решениями:

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

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

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

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

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

3
erl27
901 / 749 / 832
Регистрация: 06.09.2013
Сообщений: 1,561
29.09.2014, 17:22 2
Даны два числа А и В. Подсчитайте кол-во натуральных чисел на отрезке от А до В, сумма цифр кот...
Напишите полностью условие
0
mender
0 / 0 / 0
Регистрация: 14.12.2013
Сообщений: 5
29.09.2014, 17:24  [ТС] 3
Сумма цифр которых четна
0
erl27
901 / 749 / 832
Регистрация: 06.09.2013
Сообщений: 1,561
29.09.2014, 17:40 4
Лучший ответ Сообщение было отмечено mender как решение

Решение

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, N: integer;
  S: byte;
 
begin
  readln(a, b);
  j := 0;
  for i := a to b do 
  begin
    S := 0;
    N := i; //Запоминаем i
    While N <> 0 do begin
      S := S + N mod 10;
      N := N div 10
    end;
    if S mod 2 = 0 then j := j + 1
  end;
  writeln;
  writeln(j)
end.
Нельзя изменять переменную i внутри цикла
1
29.09.2014, 17:40
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
29.09.2014, 17:40

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

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

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


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

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

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