М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
sasha11225
sasha11225
01.03.2022 05:30 •  Информатика

БУДЬ ЛАСКА ДО ІТЬ
Це в Python


БУДЬ ЛАСКА ДО ІТЬЦе в Python

👇
Ответ:
Kuznecovaalexa2005
Kuznecovaalexa2005
01.03.2022

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)

Объяснение:

4,5(64 оценок)
Открыть все ответы
Ответ:
banana1106
banana1106
01.03.2022
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.
4,7(6 оценок)
Ответ:
maksimtitov98
maksimtitov98
01.03.2022
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.
4,8(49 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ