Ч заменяется на Т и ь знак остаётся и получается мять
Объем шара
, объем куба
. Необходимо сравнить объёмы двух сосудов.
Код (PascalABC.NET 3.2):
begin
var A := ReadReal('Введите сторону куба:');
var r := ReadReal('Введите радиус шара:');
A := A * A * A;
r := 4 * pi / 3 * r * r * r;
if A > r then print('В шарообразном сосуде на', A - r, 'воды больше')
else if r > A then print('В прямоугольном сосуде на', r - A, 'воды больше')
else print('В сосудах одинаковое количество воды');
end.
А3) переде всем выражением стоит отрицание. Значит, чтобы оно было истинно, выражение в скобках должно быть ложно. В скобках импликация, которая ложна только в одном случае, когда 1->0. Поэтому X>2=1, X>3=0.
Подходит ответ 3.
а4) 10001111(2)
Как и в десятичной системе разряды имеют веса. Эти веса задаются степенями двойки. Два в степени номера разряда. Разряды нумеруются справа налево от нуля.
1*2^0+1*2^1+1*2^2+1*2^3+1*2^7=128+15 = ?
Var a:array[1..1000] of real;
i,n,ko,kp:integer;
begin
write('Введите количество элементов массива n= '); readln(n);
for i:=1 to n do
read (a[i]);
for i:=1 to n do
write(a[i],' ');
ko:=0; kp:=0;
for i:=1 to n do
if a[i]>0 then kp:=kp+1 else if a[i]<0 then ko:=ko+1;
if ko>kp then writeln ('Отрицательных элементов больше чем положительных')
else if ko<kp then writeln ('Положительных элементов больше чем отрицательных')
else writeln ('Количество положительных и отрицательных элементов равны');
end.