Язык Pascal

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

Question

Информатика

Аксиния

31 августа, 15:55

Язык Pascal

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

+4

Ответы (1)

Знаете ответ на вопрос?

Гора · 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.