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

273

407

Посмотреть ответы 2

Ответы на вопрос:

ДашинСамурай

Информатика

4,4(15 оценок)

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.