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

Напишите программу, которая запрашивает величину радиуса, и которая выводит длину окружности и площадь круга. Язык python​

👇
Ответ:
ninahatsanowsk
ninahatsanowsk
23.10.2021

from math import pi

r = int(input("Введите радиус: "))

print('Площадь круга:', pi*r*r)

print('Длина окружности:', 2*pi*r)

4,7(1 оценок)
Ответ:
vaxa12345
vaxa12345
23.10.2021

import math

r = int(input("Введите радиус: "))

#Длина окружности

#Формула 2piR

print("Длина окружности: " + str(2*math.pi*r))

#Площадь круга

#Формула pi*r^2

print("Площадь круга: " + str(math.pi*r**2))

4,4(3 оценок)
Открыть все ответы
Ответ:
nadiacolupaeva
nadiacolupaeva
23.10.2021
N = X1*256 + Y1*16 + Z1
2N = X2*256 + Y2*16 + Z2
X1 + Y1 + Z1 = X2 + Y2 + Z2

Во-первых, X1 < 8, иначе число 2N в 16-ной записи станет 4-значным.
Можно написать такую программу поиска этих чисел
Начало
k = 0 ' Это счетчик чисел, которые мы ищем
Цикл по X1 от 1 до 7
    Цикл по Y1 от 0 до 15
        Цикл по Z1 от 0 до 15
            N = X1*256 + Y1*16 + Z1
            M = 2*N
            X2 = Int (M / 256)
            Y2 = Int ((M - X2*256) / 16)
            Z2 = M Mod 16
            Если (X1+Y1+Z1 = X2+Y2+Z2) And ((X1 = 2) Or (Y1 = 2) Or (Z1 = 2), То
                k = k + 1
            Конец Если
        Конец цикла по Z1
    Конец цикла по Y1
Конец цикла по X1
Вывод k
Конец
4,6(8 оценок)
Ответ:

должно по идее получиться "нет худо без добра.", но у меня получилось

"нет худо бrз одра." может ты в условии что-то напутала? вот программа которая переводит

 

function Pow(a, x:integer):integer;
var
  rez, i:integer;
begin
  rez := 1;
  for i := 1 to x do
    rez := rez * a;
  Pow := rez;
end;

function BinToDec(a:string):integer;
var
i ,r:integer;
begin
  r := 0;
  for i := length(a) downto 1 do
    r := r + StrToInt(a[i]) * Pow(2, length(a) - i);

  BinToDec := r;
end;

var
  s:array[1..100] of string;
  i:integer;
begin
  s[1] := '11001101';
  s[2] := '11100101';
  s[3] := '11110010';
  s[4] := '00100000';
  s[5] := '11110101';
  s[6] := '11110011';
  s[7] := '11100100';
  s[8] := '11100000';
  s[9] := '00100000';
  s[10] := '11100001';
  s[11] := '1110010';
  s[12] := '11100111';
  s[13] := '00100000';
  s[14] := '11101110';
  s[15] := '11100001';
  s[16] := '11110000';
  s[17] := '11100000';
  s[18] := '00101110';
  for i := 1 to 18 do
    write(chr(BinToDec(s[i])));
end.

4,5(59 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ