Дано три числа,которые показывают день,месяц и год. Составить программу,которая посчитает порядковый номер дня в году

1

Ответы и объяснения

2013-04-09T21:26:01+04:00

const a: array[1..12] of byte = (31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31);
var
D: 1..31;
M: 1..12;
G: 1800..2012;
i, num: integer;
begin
writeln('Введите день, месяц, год: '); readln(D, M, G);
for i := 1 to (M - 1) do num := num + a[i];
writeln('Порядковый номер даты: ', num + D);
end.