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

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

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

2

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

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

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

3

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

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

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

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

5

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

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