Язык PascalТребуется определить, является ли данный год высокосным. (Напомним, что год...

Question

Язык Pascal
Требуется определить, является ли данный год высокосным. (Напомним, что год является высокосным, если его номер кратен 4, но не кратен 100, а также если он кратен 400.)

Answer 1

Var
  n:integer;
  f:boolean;
begin
write('Введите год: ');
readln(n);
f:=false;
if (n mod 4=0) and (n mod 100>0) then f:=true;
if  n mod 400=0 then f:=true;
if f=true then writeln('Это высокосный год') else writeln('Это не высокосный год')
end.