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

Найти, сколько среди чисел n, n 1, ..., m таких, которые являются номерами високосных годов

21.07.2014, 12:24. Просмотров 1001. Ответов 2
Метки нет (Все метки)

Даны натуральные n m ( n<m ) найти сколько среди чисел n , n+1, ..., m таких которые являются номерами високосных годов
0
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
21.07.2014, 12:24
Ответы с готовыми решениями:

Сколько среди точек таких, которые принадлежат кругу радиуса r с центром в начале координат
Даны натуральное число n, действительные числа r, a1,...,an (n ≥ 2). Сколько среди точек (a1, an),...

Найти среди элементы массива, которые являются квадратами некоторого числа т.
Даны целые положительные числа а1, а2,..., аn. Найти среди них те, которые являются квадратами...

Посчитать, сколько среди пар чисел таких, которые дают в сумме число, кратное 13
(Цикл с постусловием) Вводятся пары целых чисел. Посчитать, сколько среди них пар, дающих в сумме...

Найти в последовательности натуральных чисел количество таких чисел, которые кратны 4 и оканчиваются на 2
Напишите программу, которая в последовательности натуральных чисел определяет количество таких...

Определить, сколько из чисел являются номерами високосных годов
Даны натуральные числа n,m(n&lt;=m) определить,сколько из чисел n,n+1,..,m являются номерами...

2
Darth Coder
284 / 265 / 107
Регистрация: 10.06.2011
Сообщений: 696
21.07.2014, 12:30 2
Лучший ответ Сообщение было отмечено как решение

Решение

Вот код, вычисляющий, високосный ли год
Pascal
1
2
3
var y: word; begin readln(y);
 if y mod 4 <> 0 then writeln('Обычный') else if y mod 100 = 0 then if y mod 400 = 0 then writeln('Високосный') else writeln('Обычный') else writeln('Високосный'); 
end.
к массиву приделать это несложно
0
Puporev
Модератор
56594 / 43283 / 29926
Регистрация: 18.05.2008
Сообщений: 102,959
21.07.2014, 12:52 3
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
var n,m,i,k:integer;
begin
repeat
writeln('Введите диапазон натуральных чисел');
readln(n,m);
until(n>0)and(m>n);
k:=0;
for i:=n to m do
if((i mod 100<>0)and(i mod 4=0))or(i mod 400=0)
then inc(k);
write('Количество високосных годов=',k);
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
21.07.2014, 12:52

Даны натуральные числа n,m(n<=). Определить,сколько из чисел n,n+1,.,m являются номерами високосных годов
Даны натуральные числа n,m(n&lt;=). Определить,сколько из чисел n,n+1,...,m являются номерами...

Среди чисел 1,2,...,n найти те, которые являются простыми числами
Дано натуральное число n. Среди чисел 1,2,...,n найти те, которые являются простыми числами....

Найти среди чисел те, которые являются квадратами некоторого числа m
Даны целые положительные числа a1, a2, …, an. Найти среди них те, которые являются квадратами...


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

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

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