Написать программу, которая по заданной дате (числу d и месяцу m) определяет число дней, прошедших от начала года, если известно, что год - не високосный.

Question

Информатика

Германик

14 марта, 20:21

Написать программу, которая по заданной дате (числу d и месяцу m) определяет число дней, прошедших от начала года, если известно, что год - не високосный.

+1

Ответы (1)

Знаете ответ на вопрос?

Сергейка · Answer 1

Const Months: Array [1 ... 12] Of Integer = (31,28,31,30,31,30,31,31,30,31,30,31) ;

var d, m, result, i : integer;

Begin

read (d, m) ;

for i : = 1 to m-1 do

result : = result + Months[i];

writeln (result + d) ;

End.