ПОМОГИТЕ, ОЧЕНЬ НАДО!!! Ввести номер месяца и номер дня, вывести число дней, оставшихся до Нового года. Пример: Введите номер ме
ПОМОГИТЕ, ОЧЕНЬ НАДО!!! Ввести номер месяца и номер дня, вывести число дней, оставшихся до Нового года. Пример: Введите номер месяца 12 Введите день 25 До Нового года осталось 6 дней. P.S.: надо постараться использовать if, while, repeat, until, div mod, case of (НЕ ОБЯЗАТЕЛЬНО ИСПОЛЬЗОВАТЬ ВСЕ ИЗ ЭТОГО)
Без "<span>if, while, repeat, until, div mod, case of" получается короче и проще: </span>const days:array[1..12]of integer=(31,28,31,30,31,30,31,31,30,31,30,31); var m,d,k,i:integer; begin writeln('Введите номер месяца'); readln(m); writeln('Введите день'); readln(d); k:=0; for i:=1 to m-1 do k:=k+days[i]; k:=365-k-d; writeln('До Нового года осталось ' ,k,' дней (день/дня)'); end.
Пример: Введите номер месяца 12 Введите день 25 До Нового года осталось 6 дней (день/дня)
1) function numb(n:integer):integer; var n,ch,st,max:integer; begin st:=1; max:=-1; ch:=n mod 10; n:=n div 10; while(n>0)do begin ch:=ch+(n mod 10)*st; n:=n div 10; st:=st*2; end; while(ch>0)do begin if(ch mod 10>max)then max:=ch mod 10; ch:=ch div 10; end; numb:=max; end; 2) function yravn(a,b:integer):integer; begin yravn:=-b div a; end;