Определить, является ли введённый год високосным

@Konfetkaliliya · Регистрация: 21.01.2013

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

3.Дано целое положительное число, соответствующее номеру года. Напишите программу, позволяющую определить является ли введённый год высокосным. Год является високосным, если его номер кратен 4, но из лет кратных 100, високосными считаются кратные 400.(Например, 1700,1800,1900-не високосные, а 2000-високосный.)

@GggDrej · 23.01.2013, 18:07

Pascal

uses crt;
var year:integer;
begin
 read(year);
 if (year mod 4=0) and (year mod 100<>0)
  or (year mod 100=0) and (year mod 400=0) then  write('Yes')
 else write('No');
end.

@Konfetkaliliya 0 / 0 / 0 Регистрация: 21.01.2013 Сообщений: 32
		1
	Определить, является ли введённый год високосным 23.01.2013, 16:39. Показов 19544. Ответов 1 Метки нет (Все метки) 3.Дано целое положительное число, соответствующее номеру года. Напишите программу, позволяющую определить является ли введённый год высокосным. Год является високосным, если его номер кратен 4, но из лет кратных 100, високосными считаются кратные 400.(Например, 1700,1800,1900-не високосные, а 2000-високосный.) 0

	23.01.2013, 18:07

Определить, является ли введённый год високосным

Решение