• Помогите пожалуйста определить високосный ли год или нет. Пишет YES или NO и следующий ближайший високосный год. Это в паскале.

Ответы 1

  • Program n1;var a,i: integer;beginreadln(a);if (a mod 4 = 0) and (a mod 100<>0) or (a mod 400=0)then writeln ('yes') else writeln ('no');i:=a;while true dobegini:=i+1;if (i mod 4 = 0) and (i mod 100<>0) or (i mod 400=0) thenbeginwriteln(i);break;end;end;end.
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years