[Грин]

прошу помощи по информатике (:
класс 10, язык - pascal, но как оформить, я додумаюсь, мне вот идея в голову никак не приходит.

сама задача

задана дата в формате ДД-ММ-ГГ, где ДД - день, ММ - месяц, ГГ - год. определить, сколько дней прошло с начала года, учитывая и високосные годы тоже.

проблема в том, что именно ДД-ММ-ГГ, то есть вариант readln(a, b, c) не прокатывает(

буду очень благодарен за помощь)

@темы: Pascal, Информатика

Comments

[korby]

Прочитайте строку, возьмите из неё символы №1, 2, 4, 5, 7, 8. Сложите из них строковые переменные дня, месяца, года, потом преобразуйте их в числовые.

var date:string[8]; day_str,month_str,year_str:string[2]; day,month,year,code:integer;
...
readln(date);
day_str=date[1]+date[2];
val(day_str,day,code);
month_str=date[4]+date[5];
val(month_str,month,code);
year_str=date[7]+date[8];
val(year_str,year,code);