Впаскале, в if. требуется определить, является - вопрос №8579508 от gilfanovar01 18.10.2021 15:35

Question

Информатика: Впаскале, в if. требуется определить, является ли данный год високосным. (напомним, что год является високосным, если его номер кратен 4, но не кратен 100, а также если он кратен выведите сообщение на экран «год високосный» или «год не високосный».

gilfanovar01 · Answer

Var  a: integer;begin  read(a);  if (a mod 4 = 0) and (a mod 100 0) or (a mod 400 = 0) then     writeln( Да ) else    writeln( Нет );end....