Составить программу в паскале! 9 класс! ! ! без всяких div и mod. год является високосным, если его номер кратен 4. из кратных 100 високосными являются лишь те года, которые кратны также 400 (например, 1700, 1800 и 1900 — не високосные года, 2000 — високосный). дано натуральное число n. определить, является ли високосным год с таким номером.
aidnovna
1
19.05.2019 17:10
0
Другие вопросы по теме Информатика
nikzaytsev2001
28.05.2019 13:50
osmaginh77
28.05.2019 12:15
ТвойВраг
28.05.2019 12:21
Kseniapinzari12
28.05.2019 12:27
Aleksandra19771
28.05.2019 13:50
evelinkazelenyak
28.05.2019 13:50
Artemov9Artem
28.05.2019 12:33
YuliaMarho
28.05.2019 12:42
diana6192005
28.05.2019 13:40
tyuliganova
28.05.2019 13:40
Популярные вопросы
- Ребят как это делать завтра в школу, а я не понимаю как это делать...
3 - Вот) Побыстрей пожайлуста!...
2 - Решите задачки Банк предоставляет студентам учебный заем под 5% годовых....
3 - Наприкінці XV ст. об єднання Франції було майже завершено , і вона стала...
3 - Анализ Проанализируйте практические задания. 1. Какие математические идеи...
3 - Написати спільні риси та риси вудмінності дізраєля та гла.дсонь...
2 - 1) Перед вами схемы ЭЦ. Назовите, из каких приборов они состоят, найдите...
2 - 752.° Розкладіть на множники: 1) х3 – 1; Строчнооо!...
3 - Зимний вечер,весёлый датский сказочник,белоснежный душистый платок,большая...
3 - ЛЮДИ ОПРЕДЕЛИТЕ , = 5,7см+68мм ИЛИ 0,7 м 68т +1500кг или 70т-5000г 75ц...
1
programm p;
var n:integer;
begin
readln(n);
if n/4=int(n/4) then
begin
if (n/100=int(n/100))and(n/400<>int(n/400)) then
writeln('Не високосный') else
writeln('\Високосный';
end
else writeln('Не високосный')
end;