С наступающим Новым годом! Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
Dmitriy K
0 / 0 / 0
Регистрация: 19.12.2009
Сообщений: 4
1

Найти количество натуральных чисел

20.12.2009, 09:46. Просмотров 966. Ответов 1
Метки нет (Все метки)

Немогу решить. Помогите пожалуйста.
Найти количество натуральных чисел, принадлежащих интервалу (а,б], в которых младшая цифра кратна заданной, а старшая - четна. {Использовать циклы While и Repeat.}
0
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
20.12.2009, 09:46
Ответы с готовыми решениями:

Найти количество натуральных чисел, не превосходящих N и не делящихся ни на одно из чисел 2, 3, 5
Задано натуральное число N. Найти количество натуральных чисел, не превосходящих N и не делящихся...

Найти количество пар натуральных чисел, где одно из чисел делится на другое
Есть число n, оно от 1 до 1000. Нужно найти количество пар натуральных чисел, где одно из чисел...

Найти количество натуральных чисел и вычислить сумму по условию
Ребята привет, помогите пожалуйста с заданием. Листинг программы и блок-схема. Найти число M...

Найти заданное количество натуральных чисел, у которых нет простых делителей, кроме 2, 3 и 5
Дано натуральное число n. Получить в порядке возрастания n первых натуральных чисел, которые не...

Дана последовательность натуральных чисел, заканчивающаяся нулем. Найти количество четных элементов с номерами, кратными 5.
Дана непустая последовательность натуральных чисел, заканчивающаяся нулем. Найти количество четных...

1
yanyk1n
4333 / 1465 / 680
Регистрация: 12.03.2009
Сообщений: 5,310
20.12.2009, 10:32 2
Лучший ответ Сообщение было отмечено Dmitriy K как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
uses crt;
var a,b,k,i,c,c1,c2:longint;
 
begin
 clrscr;
 write('A B-> ');
 readln(a,b);
 write('Цифра -> ');
 readln(c);
 k:=0;
 for i:=a+1 to b do
 begin
  c2:=i mod 10;
  while i>=10 do i:=i div 10;
  c1:=i;
  if (c1 mod 2=0) and (c mod c2=0) then inc(k);
 end;
 writeln('Таких чисел - ',k);
 readln;
end.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
20.12.2009, 10:32

Для каждого члена последовательности из натуральных чисел найти количество нулей и единиц в записи числа
Поступает последовательность целых положительных чисел, 0 — конец последовательности. Для каждого...

Дана непустая последовательность натуральных чисел, заканчивающаяся нулем. Найти количество четных элементов с номерами, кратными 5.
Дана непустая последовательность натуральных чисел, заканчивающаяся нулем. Найти количество четных...

В последовательности натуральных чисел определить количество чисел, кратных 6, и оканчивающихся на 0
Напишите программу, которая в последовательности натуральных чисел определяет количество всех...


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

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

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