Ответы на вопрос:
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.
Популярно: Информатика
-
botuguruur23.06.2021 02:16
-
kristinakuleh24.11.2022 21:27
-
Никита9211115.06.2023 00:26
-
liliasirbu31.10.2020 21:36
-
поля131505.01.2021 18:17
-
miravolkova1906.02.2022 11:24
-
MedinaIsk26.06.2022 18:03
-
Бусіта27.08.2022 13:50
-
Cjfd24.03.2023 15:28
-
Косинус0811102.02.2023 22:27