Дан номер года. Определить является ли он высокосным. Сделать блок-схему и программу

Question

Информатика

Муза

24 сентября, 09:06

Дан номер года. Определить является ли он высокосным. Сделать блок-схему и программу

+1

Ответы (1)

Знаете ответ?

Улита · Answer 1

Program gt;

var n:longint;

begin

readln (n) ;

case n of

1 ... 10000: if (n mod 400=0) or ((n mod 4=0) and (n mod 1000)) then writeln ('YEs') else

writeln ('NO') ;

end;

end.