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

Ту. 120 см, ь
20 см, с = 0,4 г.
иній касі
Для a =
14. Для виготовлення жерстяної коробки використовують квадрат-
ний лист жерсті розміром ахасм2. Висота коробки становить
Побудуйте блок-схему для розв'язування задачі та реалізуйте
bcм. Маса 1 см2 жерсті становить сг. Визначте масу коробки.
відповідну програму мовою Python у середовищі програмування​

👇
Открыть все ответы
Ответ:
Kristino4kaMiy
Kristino4kaMiy
19.08.2022
Алгоритм:
Просим пользователя ввести площадь квадрата SK
и площадь окружности SR
Вычислить длину стороны квадрата  a = \sqrt{SK}
Вычислить длину диагонали квадрата  c = \sqrt{2 a^{2} }
Вычислить радиус окружности  r = \sqrt{ \frac{SR}{ \pi } }

Если длина диагонали с меньше или равна радиусу окружности r, то квадрат поместится в круге
Если радиус r меньше или равен длине стороны квадрата, то окружность поместится в квадрате.
В противном случае фигуры не поместятся одна в другой.

Вот реализация алгоритма на языке basic:
 10 rem Площадь круга и квадрата

 20 input "Введите площадь круга"; SR
 30 input "Введите площадь квадрата"; SK

 40 a=sqr(SK)

 50 c=sqr(a^2 * 2)
 60 pi=3.1415926
 70 r=sqr(SR/pi)
 80 if a>=r then print "Круг поместится в квадрат":goto 110
 90 if r>=c then print "Квадрат поместится в круг":goto 110
100 print "Фигуры не поместятся друг в друга"
110 print "---------------------------------":print
120 end
4,4(45 оценок)
Ответ:
Мурик123
Мурик123
19.08.2022
// PascalABC.NET 3.3, сборка 1561 от 02.11.2017
// Внимание! Если программа не работает, обновите версию!

1)

begin
  var (a,b):=ReadInteger2('Введите границы диапазона:');
  var Всего:=b-a+1; // количество целых чисел в диапазоне
  var Четных,Нечетных:integer;
  if a.IsOdd then begin Четных:=Всего div 2; Нечетных:=Всего-Четных end
  else begin Нечетных:=Всего div 2; Четных:=Всего-Нечетных end; // четное a
  Writeln('Нечетных- ',Нечетных,', четных- ',Четных)
end.

Пример
Введите границы диапазона: -4 4
Нечетных- 4, четных- 5

2)

begin
  var (n,a,b):=ReadInteger3('Введите n,a,b:');
  SeqRandom(n,a,b).Println
end.

Пример
Введите n,a,b: 15 -10 35
19 33 -10 4 5 -10 10 21 17 21 14 21 24 23 18
4,8(77 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ