Код в Turbo Pascal: USES Graph,CRT; VAR x,y,dx,dy,Device,Mode,i: Integer; BEGIN Device:=0; InitGraph(Device,Mode,''); x:=10; y:=10; dx:=1; dy:=1; i:=1; Repeat SetColor(Cyan); Circle(x,y,10); SetFillStyle(1,3); FloodFill(x,y,Cyan); Delay(10); SetColor(Black); Circle(x,y,10); SetFillStyle(1,0); FloodFill(x,y,Black); x:=x+dx; y:=y+dy; if (x>300) OR (y>200) then begin x:=10; y:=10; i:=i+1; end;
Var День,Месяц:byte; Begin Write('№ дня = ');ReadLn(День); Var C:=365-День; Write('№ месяца = ');ReadLn(Месяц); Case Месяц of 2:C:=C-31; 3:C:=C-59; 4:C:=C-90; 5:C:=C-120; 6:C:=C-151; 7:C:=C-181; 8:C:=C-212; 9:C:=C-243; 10:C:=C-273; 11:C:=C-304; 12:C:=C-334 End; if (C mod 100>10)and(C mod 100<20) then Write('До нового года осталось ',C,' дней') else Case C mod 10 of 1:Write('До нового года остался ',C,' день'); 2..4:Write('До нового года осталось ',C,' дня'); 0,5..9:Write('До нового года осталось ',C,' дней') End End.
