1 Тема від Катерина123 Востаннє редагувалося Torbins (23.03.2017 20:30:11)

  • Дата реєстрації: 23.03.2017
  • Повідомлень: 1
    • Репутація: 0

Тема: Визначення високосного року

За допомогою  Pascal скласти програму,яка буде визначати чи високоснй рік чи ні.

2 Відповідь від Torbins

  • Torbins
  • Torbins
  • Replace Team
  • Поза форумом
  • Дата реєстрації: 07.05.2012
  • Повідомлень: 3 089
    • Репутація: 2282

Re: Визначення високосного року

Із чим саме у вас виникли проблеми? Може якісь повідомлення про помилки з'являються?

Подякували: koala1

3 Відповідь від Vi

  • Vi
  • Vi
  • Користувач
  • Поза форумом
  • Звідки: г. Краматорськ. Донеччина
  • Дата реєстрації: 19.02.2017
  • Повідомлень: 105
    • Репутація: 89

Re: Визначення високосного року

Якось так:

program Project1;
var Year:Integer;
begin
  Write('Рiк будь ласка ');Readln(Year);
  if ((Year mod 4)=0) and ((Year mod 100)<>0) or ((Year mod 400)=0)
  then Write('Вiсокосний')
  else  Write('Зовсiм нi');
  Readln;
end.

4 Відповідь від Torbins

  • Torbins
  • Torbins
  • Replace Team
  • Поза форумом
  • Дата реєстрації: 07.05.2012
  • Повідомлень: 3 089
    • Репутація: 2282

Re: Визначення високосного року

Vi
Невеличке зауваження: у нас на форумі не прийнято давати готовий код людям, які не доклали ніяких зусиль для самостійного вирішення своєї проблеми (пост на форумі не рахується). Але якщо вам подобаються такі задачки, то можете робити що хочете. Зрештою, тренуватися також треба.

Подякували: koala, ostap34PHP, 0xDADA11C73

5 Відповідь від Vi

  • Vi
  • Vi
  • Користувач
  • Поза форумом
  • Звідки: г. Краматорськ. Донеччина
  • Дата реєстрації: 19.02.2017
  • Повідомлень: 105
    • Репутація: 89

Re: Визначення високосного року

Якщо менi не зазь я пишу вiдповiдь.
Щодо ледацюг... Це було завжди. Я до цього звик.