Есть ответ 👍

№1 даны числа a, b, c, составляющие стороны треугольника и числа d, f, составляющие стороны прямоугольника. написать программу, определяющую, площадь какой фигуры больше. №2 даны объёмы и массы двух тел из разных материалов. написать программу, определяющую плотность какого материала больше. №4 пользовать вводит с клавиатуры два числа a и b. написать программу, определяющую: 1). является ли число a делителем числа b; 2). является ли число b делителем числа

297
383
Посмотреть ответы 2

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


1)

var    a, b, c, d, f : integer;     s : real; begin

 

    writeln( 'введите стороны треугольника: ' );     write( 'a = ' ); readlln( a );     write( 'b = ' ); readlln( b );     write( 'c = ' ); readlln( c );

    writeln( 'введите стороны прямоугольника: ' );     write( 'd = ' ); readlln( d );     write( 'f = ' ); readlln( f );     s : = (a + b + c) / 2;     s : = sqr( s * (s-a) * (s-b) * (s-c) );     if (d * f) = s then         writeln( 's прямоугольника = s треугольника.' )     else if (d * f) > s then         writeln( 's прямоугольника больше.' )     else         writeln( 's треугольника больше.' );     readln; end.

 

2)

var     m, v, m1, v1 : integer; begin

    writeln( 'введите объем и массу первого тела: ' );     write( 'm = ' ); readlln( m );     write( 'v = ' ); readlln( v );

    writeln( 'введите объем и массу второго тела: ' );     write( 'm = ' ); readlln( m1 );     write( 'v = ' ); readlln( v1 );     if (m / v) = (m1 / v1) then         writeln( 'плотности равны.' )     else if (m / v) > (m / v) then         writeln( 'плотность первого тела больше.' )     else         writeln( 'плотность второго тела больше.' );     readln; end.

 

3)

var    a, b : integer; begin

 

    writeln( 'введите числа: ' );     write( 'a = ' ); readlln( a );     write( 'b = ' ); readlln( b );

    if a mod b = 0 then         write( 'число a является делителем числа b.' );     if b mod a = 0 then         write( 'число b является делителем числа a.' );     readln; end.


а)воскресенье получается

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

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

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

Caktus Image

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

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

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

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

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

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

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

GTP TOP NEWS