Описать функцию IsLeapYear(Y) логического типа, которая возвращает True, если год являеятся високосным, и False в противном случае

@Toshi · Регистрация: 29.11.2010

Описать функцию IsLeapYear(Y) логического типа, которая возвращает True, если год Y (целое положительное число) являеятся високосным,и False в противном случае. Вывести значение функции IsLeapYear для пяти данных значений параметра Y. Високосным считается год, делящиийся на 4,за исключением тех годов, которые делятсяна 100 и не делятся на 400.

@Puporev · 29.11.2010, 21:54

Pascal

uses crt;
function IsLeapYear(y:word):boolean;
begin
IsLeapYear:=((y mod 100<>0)and(y mod 4=0))or(y mod 400=0);
end;
var i:byte;
    y:word;
begin
writeln('Введите 5 значений года для проверки на високоность:');
for i:=1 to 5 do
 begin
  write('Год=');
  read(y);
  writeln(IsLeapYear(y));
 end;
end.

@Toshi 0 / 0 / 0 Регистрация: 29.11.2010 Сообщений: 10
		1
	Описать функцию IsLeapYear(Y) логического типа, которая возвращает True, если год являеятся високосным, и False в противном случае 29.11.2010, 18:41. Просмотров 2078. Ответов 1 Метки нет (Все метки) Описать функцию IsLeapYear(Y) логического типа, которая возвращает True, если год Y (целое положительное число) являеятся високосным,и False в противном случае. Вывести значение функции IsLeapYear для пяти данных значений параметра Y. Високосным считается год, делящиийся на 4,за исключением тех годов, которые делятсяна 100 и не делятся на 400. 0

Опции темы

Описать функцию IsLeapYear(Y) логического типа, которая возвращает True, если год являеятся високосным, и False в противном случае

Решение