Пример: ввод 5
1998 1999 2000 2010 2012 вывод Happy Happy Not happy Happy Not happy
program noname; uses crt; var x,y,z:longint; begin clrscr; read (x); for y:=1 to x do begin read (z); if (z mod 400=0) or ((z mod 100<>0) and (z mod 4=0)) then writeln ('not happy') else writeln ('happy'); end; readkey; end.
|