Var R:integer:=70; //радиус Солнца A:array[1..4,1..5] of integer; //A[1] - x //A[2] - y //A[3] - r //A[4] - r орбиты v:real:=0.03; k:integer:=10; // Коэффициент масштабирования орбит Begin Window.Maximize; A[1,3]:=10; A[1,4]:=R+A[1,3]*k;
A[2,3]:=13; A[2,4]:=A[1,4]+A[2,3]*k;
A[3,3]:=17; A[3,4]:=A[2,4]+A[3,3]*k;
A[4,3]:=A[3,3] div 4; A[4,4]:=A[3,3]+A[4,3]*k;
LockDrawing; SetCoordinateOrigin(Window.Width div 2,Window.Height div 2);
Var A:integer; Begin Randomize; A:=random(101); WriteLn('Исходное число: ',A); if A mod 2 = 0 then WriteLn('Число чётное, ',A/2) else WriteLn('Число нечётное, ',A*A); End.
Var A:integer; Begin Write('Введите целое число: ');ReadLn(A); if (A>15)and(A mod 10 = 6) then WriteLn(A*A,', весна') else WriteLn(Sqrt(A),', осень') End.
Var A:integer; Begin Randomize; A:=random(900)+100; WriteLn('Исходное число: ',A); if A mod 5 = 0 then WriteLn('Оно кратно пяти, ',A div 10) else WriteLn('Оно не кратно пяти, ',A mod 100); End.
Var
R:integer:=70; //радиус Солнца
A:array[1..4,1..5] of integer;
//A[1] - x
//A[2] - y
//A[3] - r
//A[4] - r орбиты
v:real:=0.03;
k:integer:=10; // Коэффициент масштабирования орбит
Begin
Window.Maximize;
A[1,3]:=10;
A[1,4]:=R+A[1,3]*k;
A[2,3]:=13;
A[2,4]:=A[1,4]+A[2,3]*k;
A[3,3]:=17;
A[3,4]:=A[2,4]+A[3,3]*k;
A[4,3]:=A[3,3] div 4;
A[4,4]:=A[3,3]+A[4,3]*k;
LockDrawing;
SetCoordinateOrigin(Window.Width div 2,Window.Height div 2);
Repeat
Window.Clear;
Brush.Color := clYellow;
FillCircle(0,0,R);
Brush.Color := clGray;
A[1,1]:=round(A[1,4]*Cos(v*3));
A[1,2]:=round(A[1,4]*Sin(v*3));
FillCircle(A[1,1],A[1,2],A[1,3]);
Brush.Color := clOrange;
A[2,1]:=round(A[2,4]*Cos(v*3/4));
A[2,2]:=round(A[2,4]*Sin(v*3/4));
FillCircle(A[2,1],A[2,2],A[2,3]);
Brush.Color := clBlue;
A[3,1]:=round(A[3,4]*Cos(v/4));
A[3,2]:=round(A[3,4]*Sin(v/4));
FillCircle(A[3,1],A[3,2],A[3,3]);
Brush.Color := clGray;
A[4,1]:=A[3,1]+round(A[4,4]*Cos(20*v));
A[4,2]:=A[3,2]+round(A[4,4]*Sin(20*v));
FillCircle(A[4,1],A[4,2],A[4,3]);
v:=v+0.03;
Redraw;
Until false;
End.
A:integer;
Begin
Randomize;
A:=random(101);
WriteLn('Исходное число: ',A);
if A mod 2 = 0 then WriteLn('Число чётное, ',A/2)
else WriteLn('Число нечётное, ',A*A);
End.
Var
A:integer;
Begin
Write('Введите целое число: ');ReadLn(A);
if (A>15)and(A mod 10 = 6) then WriteLn(A*A,', весна')
else WriteLn(Sqrt(A),', осень')
End.
Var
A:integer;
Begin
Randomize;
A:=random(900)+100;
WriteLn('Исходное число: ',A);
if A mod 5 = 0 then WriteLn('Оно кратно пяти, ',A div 10)
else WriteLn('Оно не кратно пяти, ',A mod 100);
End.