1. Информатика
  2. Определить количество

Определить количество дней в году, которое вводится пользователем. алгоритм решения : в високосном году - 366 дней, в обычном 365. високосными являются все года. делящиеся нацело на 4, за исключением столетий, которые не делятся нацело на 400. проверяем, делится ли год на 4. если нет, то год не високосный. если год делится на 4, то проверяем, делится ли он на 100. если нет, то год високосный. если год делится на 100, но при этом не делится на 400, то год не високосный.

Ернай Ернай    3   25.06.2019 04:00    4

Ответы
CNikolas2001 CNikolas2001  20.07.2020 13:22
Program kol_dney;
var a: integer;
begin
writeln ('Введите год');
readln (a);
if a mod 4 <> 0 then writeln ('В этом году 365 дней') else
if (a mod 4 = 0) and (a mod 100 <> 0) then writeln ('В этом году 366 дней') else
if (a mod 100 = 0) and (a mod 400 <> 0) then writeln ('В этом году 365 дней');
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
karina24264 karina24264  20.05.2019 12:10
1. написать программу, которая подсчитывает количество четных чисел в массиве целых чисел. количество элементов массива равно n....
MilankaMarkova MilankaMarkova  20.05.2019 12:10
Написать программу, которая выводит на экран значения элементов массива в обратном порядке. в массиве 10 элементов, массив заполняется с случайных чисел из интервала (0,...
IvanPAW2145778 IvanPAW2145778  20.05.2019 12:20
Составьте программу замены в слове,введенном с клавиатуры,всех букв и на а и а на о .сосчитать количество замен.отладка программы для слова накидка...
odariya odariya  21.04.2020 11:56
Исполнитель Май18 преобразует число на экране. У исполнителя есть две команды, которым присвоены номера: 1. Прибавить 1 2. Прибавить 3 Сколько существует программ, для...
SanchesMaster SanchesMaster  21.04.2020 11:56
Сколько раз выполнится цикл, если начальное значение Х = 11? While Х = 10 do X = X + 1;​...
бб0бб бб0бб  21.04.2020 11:56
Скорость передачи данных через ADSL-соединение равна 1000 Кбит/c. Через данное соединение передают файл размером 1000 Кбайт. Определите время передачи файла в секундах....
ali12ali ali12ali  21.09.2019 17:10
Вряду лишнее число,найди его и поясни почему: 1,2,3,5,6,7. 3,5,6,7,11....
Xomawq Xomawq  28.11.2020 10:20
Напишите, что знаете, просто любые примеры​...
9Mesut8 9Mesut8  28.11.2020 10:19
Что это за нод? Unreal Engine 4...
Filka7 Filka7  16.09.2019 17:30
Дана целочисленная матрица а размером м х n, где м и n – заданные натуральные числа. найти произведение элементов матрицы расположенных в столбцах содержащих наибольший...

Популярные вопросы