Uses graphabc; var i, j: integer; ar: array[1..10]of integer; b: boolean;
label l1; begin b := false; for i := 1 to 10 do ar[i] := random(10, 300); l1: b := false; for i := 1 to 10 do for j := 1 to 10 do if((ar[i] = ar[j]) or (abs(ar[i] - ar[j]) < 10)) and (i <> j) then begin b := true; ar[i] := random(30, 300); end; if b = true then goto l1; window.Init(0, 0, 800, 600, clwhite); window.IsFixedSize := true; randomize; lockdrawing; pen.Width := 5; for i := 1 to 10 do begin pen.Color := rgb(random(0, 255), random(0, 255), random(0, 255)); drawcircle(400, 300, ar[i]); redraw; end; end.
Uses graphabc; var i, j: integer; ar: array[1..10]of integer; b: boolean;
label l1; begin b := false; for i := 1 to 10 do ar[i] := random(10, 300); l1: b := false; for i := 1 to 10 do for j := 1 to 10 do if((ar[i] = ar[j]) or (abs(ar[i] - ar[j]) < 10)) and (i <> j) then begin b := true; ar[i] := random(30, 300); end; if b = true then goto l1; window.Init(0, 0, 800, 600, clwhite); window.IsFixedSize := true; randomize; lockdrawing; pen.Width := 5; for i := 1 to 10 do begin pen.Color := rgb(random(0, 255), random(0, 255), random(0, 255)); drawcircle(400, 300, ar[i]); redraw; end; end.
import math
import sys
#Задача 1
print("Програма, яка визначає квадратний корінь числа")
a = int(input("Введіть ціле число: "))
if a == 0:
sys.exit(0)
b = math.sqrt(a)
print("Квадратний корінь з числа", a, "дорівнює", b)
#Задача 2
print("\nПрограма, яка визначає площу круга")
c = int(input("Введіть дійсне число - радіус кола: "))
if c == 0:
sys.exit(0)
d = math.pi*c**2
print("Площа круга дорівнює", d)
#Задача 7
print("\nПрограма, яка визначає площу круга")
c = int(input("Введіть дійсне число - діаметр кола: "))
if c == 0:
sys.exit(0)
d = math.pow(c, 2) // 4 * math.pi
print("Площа круга дорівнює", d)
#Задача 8
print("\nПрограма, яка обчислює довжину гіпотенузи прямокутного трикутника")
c1 = int(input("Введіть перший катет: "))
c2 = int(input("Введіть другий катет: "))
if c1 == 0 or c2 == 0:
sys.exit(0)
h = math.hypot(c1, c2)
print("Довжина гіпотенузи прямокутного трикутника дорівнює", h)
Объяснение: