Составить программу в паскале! 9 класс! СРОЧНО! Пожалуйста!

Составить программу в паскале! 9 класс! СРОЧНО! Пожалуйста! Без всяких div и mod. Год является високосным, если его номер кратен 4. Из кратных 100 високосными являются лишь те года, которые кратны также 400 (например, 1700, 1800 и 1900 — не високосные года, 2000 — високосный). Дано натуральное число n. Определить, является ли високосным год с таким номером.

в избранное

alex6666

28 февраля 2023

programm p; var n: integer; beginreadln (n); if n/4=int (n/4) thenbeginif (n/100=int (n/100) and (n/400<>int (n/400) thenwriteln ('Не високосный') elsewriteln ('\Високосный'; endelse writeln ('Не високосный') end;

пользователи выбрали этот ответ лучшим

комментировать

в избранное ссылка отблагодарить

Знаете другой ответ?

Задайте свой вопрос

Определить сумму четных чисел кратных 5 для четырехзначного числа

Написать программу Pascal для печати звездочками одной из фигур: в) домика

Почему у таких закономерностей как эта: 1) Задумайте число 2) Умножьте его на … . 3) Разделите…?

Заменить элемнты массива больше 5 меньше 20 на 1

Вычислите сколько байтов занимает на СВ одна минута стереозаписи

Составить алгоритм для решения задачи и определить его вид. Вычислить стоимость покупки с учетом скидки

Написать программу. Задано натуральное число. Определить делится…

Ребят, нужна помощь. Я хочу сделать анимационную открытку к дню города. Вопрос В какой программе лучше делать?

27400

Алгебра

14822

Английский язык

14216

Биология

7369

Другой

720

18829

8304

15850

5255

11818

23332

15992

73118

8152

466

46271

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: