Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Центр помощи > [Pascal] Отключение функции

Автор: N2N 3.7.2007, 12:28

Подредактируйте задучу пожалуйста

Автор: Rodman 3.7.2007, 12:44

Код


var year:Integer;
begin
  Writeln('Enter year');
  Readln(year);
  if(((year mod 400)=0)or(((year mod 4)=0)and((year mod 100)<>0)))then
    Writeln(year, ' YES')
  else
    Writeln(year, ' не YES');
  Readln;
end.

ну если я правильно понял!