Ответы на вопрос:
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
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
ZeBrAiL2TW12.05.2023 19:17
-
artemumnov204.09.2021 13:23
-
Наташа15151510.02.2023 17:37
-
Анастасия12678310.11.2021 19:04
-
sogianachkebia23.11.2022 00:59
-
mrgrabik07.09.2021 14:36
-
Andreyко10.02.2023 03:23
-
KrutoiYurka200809.12.2020 03:01
-
Marg0622.05.2022 07:47
-
vaporen11.11.2020 15:54
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.