profile
Опубликовано 6 лет назад по предмету Информатика от ana2

Задача. Год является високосным, если его номер кратен 4,однако из кратных 100 високосными являются лишь кратные 400. Например 1700,1800,1900-не високосные, а 2000 високосный. Дано натуральное число n. Определить, является ли високосным год с таким номером? Решить на паскале, уровень 8 класса!

  1. Ответ
    Ответ дан Alphaeus

    programm LeapYear;
    var y: integer;
    begin
      readln(y);
      if y/4=int(y/4) then
      begin
        if (y/100=int(y/100))and(y/400<>int(y/400)) then
          writeln('Не високосный') else
          writeln('Високосный';)
      end
      else writeln('Не високосный')
    end;

Самые новые вопросы