Беларусь, Минск
СДЕЛАЙТЕ СВОИ УРОКИ ЕЩЁ ЭФФЕКТИВНЕЕ, А ЖИЗНЬ СВОБОДНЕЕ
Благодаря готовым учебным материалам для работы в классе и дистанционно
Скидки до 50 % на комплекты
только до
Готовые ключевые этапы урока всегда будут у вас под рукой
Организационный момент
Проверка знаний
Объяснение материала
Закрепление изученного
Итоги урока
Была в сети 17.09.2024 19:36
Аверина Нина Викторовна
учитель информатики, математики
279 671
43 
Местоположение
Специализация
Условие и решение задачи День рождения.
Категория:
Информатика
06.07.2016 23:10
Просмотр содержимого документа
«Условие и решение задачи День рождения.»
РЕШЕНИЕ ЗАДАЧИ ДЕНЬ РОЖДЕНИЯ:
Uses crt;
Var x, y, dd, mm, gg, b, i, k, f, res, j, h: integer;
a, c:array[0..108] of integer;
Begin
read(x,y);
writeln;
read(dd,mm,gg);
for j:=0 to 8 do
if((gg+j) mod 400=0)or(((gg+j) mod 4=0)and((gg+j) mod 1000))then inc(c[j]);
k:=30;
f:=1;
j:=0;
While j
For i:=1+h to 12+h do begin
inc(k,f);
f:=-f;
a[i]:=k;
if i=2+h then a[i]:=28+c[j];
if i=7+h then begin k:=30;
f:=-f;
end;
if i=12+h then begin k:=30;
f:=-f;
end;
end;
inc(h,12);
inc(j);
end;
j:=0;
if(mmy)or((mm=y)and(ddx))or((mmy)and(y=2)and(x=29))or((c[j]=0)and(x=29))then y:=y+12;
if(y=14)and(x=29)then
While k0 do begin
if a[y]x then y:=y+12;
if a[y]=x then k:=0;
end;
a[y]:=x;
a[mm]:=a[mm]-dd;
For i:=mm to y do
res:=res+a[i];
if y=mm then res:=abs(dd-x);
writeln(res);
End.
Вебинар для учителей
Свидетельство об участии БЕСПЛАТНО!
