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

Question

Информатика

Луканя

30 сентября, 18:43

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

+2

Ответы (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.