Question

Написать программу на паскале: определить является ли год високосном

Answer 1

var
a: integer;
begin
readln(a);
if(a mod 4 = 0) and (a mod 100 <> 0) or (a mod 400 = 0) then
writeln('Год високосный')
else
writeln('Год не високосный');
end.

Answer 2

Writing a Pascal Program to Determine Leap Year

To write a Pascal program to determine whether a year is a leap year, you can use the following logic:

1. Leap Year Logic: - A year is a leap year if it is divisible by 4, except for years that are divisible by 100 but not by 400.

2. Pascal Program: - Here's a simple Pascal program to determine if a year is a leap year:

   program LeapYear;

var
       year: integer;

begin
       write('Enter a year: ');
       readln(year);

if ((year mod 4 = 0) and (year mod 100 <> 0)) or (year mod 400 = 0) then
           writeln(year, ' is a leap year')
       else
           writeln(year, ' is not a leap year');
   end.
   

This program prompts the user to enter a year and then checks whether it's a leap year based on the leap year logic mentioned above.

3. Explanation: - The program uses the `mod` operator to check the divisibility of the year by 4, 100, and 400. - If the conditions for a leap year are met, it outputs that the year is a leap year; otherwise, it outputs that the year is not a leap year.

4. Example Output: - For example, if you input the year 2024, the program will output "2024 is a leap year" because 2024 is divisible by 4 and not by 100.

Feel free to try running this program in your Pascal environment to see how it works!