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.
Объяснение:
Сейчас Александровского реального училища располагается Государственный аграрный университет Северного Зауралья. Учебное заведение является региональным центром образовательной деятельности, научного обеспечения и производства наукоемкой продукции в агропромышленном комплексе Тюменской области. Он участвует в формировании региональной аграрной политики и в выполнении Федеральных программ по профилю своей деятельности, которая адаптирована к специфике природных условий и социально-экономической инфраструктуре производительных сил области. В настоящее время в университете обучается более 5000 студентов.
1) 0*0 = 0
2)0+0 = 0
Объяснение:
Советую повторить основы логики в информатике.
^ - Конъюнкция(логическое умножение, по смыслу максимально приближенная к союзу «и»)
v - Дизъюнкция(логическое сложение, логическое ИЛИ, включающее ИЛИ)