Вложенный условный оператор: Определите високосный или невисокосный год

@Shoko 312 · Регистрация: 26.10.2012

Author24 — интернет-сервис помощи студентам

Определите високосный или невисокосный год. Годы, обозначающие столетия (например, 1800, 1900, 2000), являются високосными, если число столетий делится на 4. Например, 2000 год високосный, т.к. 20 делится на 4, а 1800 и 1900 невисокосные. Все другие годы являются высокосными, если число делится на 4, например, 1988 год высокосный, 1987 невисокосный.

@Puporev · 03.01.2013, 15:42

Pascal

uses crt;
var god:integer;
begin
clrscr;
repeat
write('Введите год больше 0 god=');
readln(god);
until god>0;
if ((god mod 4=0) and(god mod 100<>0))
or ((god mod 4=0) and (god mod 400=0)) then write('високосный')
else write('не високосный');
readln
end.

@Shoko 312 0 / 0 / 0 Регистрация: 26.10.2012 Сообщений: 30
		1
	Вложенный условный оператор: Определите високосный или невисокосный год 03.01.2013, 15:21. Показов 2023. Ответов 1 Метки нет (Все метки) Определите високосный или невисокосный год. Годы, обозначающие столетия (например, 1800, 1900, 2000), являются високосными, если число столетий делится на 4. Например, 2000 год високосный, т.к. 20 делится на 4, а 1800 и 1900 невисокосные. Все другие годы являются высокосными, если число делится на 4, например, 1988 год высокосный, 1987 невисокосный. 0

	03.01.2013, 15:42

Вложенный условный оператор: Определите високосный или невисокосный год

Решение