Есть ответ 👍

Информатика "программирование разветвляющихся алгоритмов" 1. написать программу, определяющую по длинам сторон a. b. c, является ли треугольник равнобедренным. 2. даны радиусы круга и сторона квадрата. у какой фигуры
площадь больше? 3. даны два различных вещественных числа x и y. написать программу возведения наименьшего из чисел в квадрат, наибольшего в куб и нахождения среднего арифметического полученных знаний. метки:

296
440
Посмотреть ответы 2

Ответы на вопрос:


var a,b,c,r,x,y: integer;

begin

  read(a,b,c);

  if (a=b) or (a=c) or (b=c) then

        writeln('ravnobedrennyj');

 

  read(a,r);

  if  (a*a> pi*r*r) then writeln('kvadrat bolshe')

  else writeln('krug bolshe');

 

  read(x,y);

  if x> y then writeln(y*y,' ',x*x*x,' ',(x+y)/2);

  else writeln(x*x,' ',y*y*y,' ',(x+y)/2);

end.

 

 


ну например 1)   какое из двух введённых чисел больше

                            2) являются ли   2 числа взаимно обратными

                            3) ну и сложная нахождение наименьшего общего кратного 2ух чисел.

 

program n1;

uses crt;

  var a,b: real;

begin

      clrscr;  

      write('введите число a: ');

      readln(a);  

      write('введите число b: ');

      readln(b);

      if (a=b) then writeln('числа равны ');

      if (a> b) then writeln ('число а больше ')

            else  writeln ('число b больше ');  

  readkey;

end. 

 

program n2;

uses crt;

  var a,b: real;

begin

      clrscr;  

      write('введите число a: ');

      readln(a);  

      write('введите число b: ');

      readln(b);

  if (a+b)=0 then writeln('числа взаимно обратны ! ')

          else writeln('числа не являются взаимно обратными ! ');

readkey;

end. 

 

 

program n3; uses crt; var n,m,res,nok: integer; function evklid( a, b: longint): longint; begin while (a < > 0) and (b < > 0) do if a > = b then a: = a mod b else b: = b mod a; evklid: = a + b; end; begin clrscr; writeln('введите a и b'); readln(m, n); res: = (evklid(n,m)); nok: = (m*n) div res; writeln('nok=',nok); readkey; end. 

   

 

 

Реши свою проблему, спроси otvet5GPT

  • Быстро
    Мгновенный ответ на твой вопрос
  • Точно
    Бот обладает знаниями во всех сферах
  • Бесплатно
    Задай вопрос и получи ответ бесплатно

Популярно: Информатика

Caktus Image

Есть вопросы?

  • Как otvet5GPT работает?

    otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.
  • Сколько это стоит?

    Проект находиться на стадии тестирования и все услуги бесплатны.
  • Могу ли я использовать otvet5GPT в школе?

    Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!
  • В чем отличия от ChatGPT?

    otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.

Подпишись на наш телеграмм канал

GTP TOP NEWS