Требуется определить, является ли данный год високосным. - вопрос №9927362 от asli121 09.11.2021 04:48

Question

Информатика: Требуется определить, является ли данный год високосным. (напомним, что год является високосным, если его номер кратен 4, но не кратен 100, а также если он кратен 400.) входные данные вводится единственное число - номер года (целое, положительное, не превышает 30000). выходные данные требуется вывести слово yes, если год является високосным и no - в противном случае. pascal

asli121 · Answer

program godVisоkos;var  god: integer; begin writeln ( Введите год );  readln(god);  if (god mod 4 = 0) and (god mod 100 0) or (god mod 400 = 0) then      writeln( ВИСОКОСНЫЙ ) else    writeln( НЕ ВИСОКОСНЫЙ ); end....