Shugyla2017
31.05.2021 23:50

Решить в python. 1)банкомат. в банкомате имеются в достаточном количестве купюры номиналом 10, 20, 50, 100, 200 и 500 гривен найти минимальное количество купюр, которое необходимо использовзть, чтобы выдать сумму в n гривен или ввести -1, если указанную суму выдать нельзя. входные данные одно число n (1 < =n< =1) выходные данные наименьшее количество купюр, которыми можно выдать n гривен.
2)скидки в супермаркете электроники, если верить телерекламе, иснус система скидок из двух купленных товаров полностью сплачусться тлько вартсть дорогого товара, другой предоставится бесплатно какой суммы достаточно, чтобы оплатить покупку трех товаров, если известна цена каждого входные данные: три натуральних числа а, b, с цени трех товаров (1 < = a, b, с< =1) bиходные данные: стоимость покупки
3)поле-чудес петрик і марічка захопились грою полечудес марічка записує слово, що складається з великих ійських букв, петрик старається poзпізнати його, причому відгадана буква відкривається на всіх позиціях, де вона міститься. за яку найменшу кількість подій петрик зможе відгадати задане слово. вxідні данні слово записане великими ійськими буквами (не бiльше 100 симеолів) вихідні дані: вдловдь до і.

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
ggg280
16.07.2020 22:21

var a, b, c: integer;  //инициализация переменных (длин отрезков)

begin  //Начало программы (тело программы)

   write (' Длины сторон: ');  //Вывод сообщения в консоль

   readln (a,b,c);  //Организация ввода (длин отрезков)

   if (a <= b+c) and (b <= a+c) and (c <= a+b) then  //В условии if проверяется, что каждая из сторон меньше либо равна сумме других. Если хотя бы одна будет больше, то все логическое выражение вернет ложь (false). В таком случае сработает ветка else.

       writeln ('Треугольник существует.')

   else

       writeln ('Треугольник не существует.');

readln(); //Инициализация закрытия по нажатию на кнопку

end. //Конец программы

Объяснение:

0,0(0 оценок)
Ответ:
abdualieva130403
16.07.2020 22:21
Var a,b,c,angA,angB,angC,cs: real;
    s: string;
begin
  write('длины сторон через пробел:  ');
  readln(a,b,c);
  if (a+b>c) and(a+c>b) and (c+b>a) then
  begin
    cs:=(sqr(a)+sqr(b)-sqr(c))/(2*a*b);
    angC:=360*ArcCos(cs)/(2*pi);
    writeln('угол С = ',angC:4:2);
    cs:=(sqr(a)+sqr(c)-sqr(b))/(2*a*c);
    angB:=360*ArcCos(cs)/(2*pi);
    writeln('угол B = ',angB:4:2);
    angA:=180-angB-angC;
    writeln('угол A = ',angA:4:2);
    if (angA<90) and (angB<90) and (angC<90) then
       s:='треугольник остроугольный';
    if (angA>90) or (angB>90) or (angC>90) then
       s:='треугольник тупоугольный';
    if (sqr(a)+sqr(b)=sqr(c)) or (sqr(a)+sqr(c)=sqr(b)) or 
      (sqr(b)+sqr(c)=sqr(a)) then
       s:='треугольник прямоугольный';
       writeln(s);
     end
  else writeln('треугольник составить нельзя');
end.
    
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота