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);
