Предмет: Математика, автор: ananasik555

Помогите решить. Не забудьте написать номер вопроса.(они записаны рядом с вопросом)

Приложения:

Ответы

Автор ответа: drunk69

0

18)разбей на 2 параллелепипеда и находи объем каждого
5*2*2+1*1*2=22
ответ:4

Предыдущий вопрос

Следующий вопрос

Похожие вопросы

Предмет: Математика, автор: humayyunanova

какая из десятичных дробей равна обыкновенной дроби 12/,25?

6 лет назад

Предмет: Математика, автор: zlatazeltukova

2. Решите уравнение 3 7/8-х= 15 5/8-13 7/8
Дая 10 балов только знаю сколько будет х
Напишите так
Х=........
Х=2 1/8
(там где/ это дроби)
Молю помогите

6 лет назад

Предмет: Литература, автор: derbihseva4758

7. Найде в дополнительной справочной литературе и
сети Интернет информацию о том, как окревет при
роду в Казахстане. Возьма Тервью у одноклассников
Использу пословицы и поговорки. Слелай вывод

6 лет назад

Предмет: География, автор: лев999

помогите срочно плиз!!!!!!!!!!!!!!!!!!!

9 лет назад

Предмет: Информатика, автор: zheka250895

помогите сделать подпрограмму с помощью процедуры!!! пожалуйста!!!

const
CSize1=7;
CSize2=6;
CSize3=5;
type
TMas1=array[1..CSize1,1..CSize1] of integer;
  TMas2=array[1..Csize2, 1..CSize2] of integer;
TMas3=array[1..Csize3, 1..CSize3] of integer;
var
A1:TMas1;
A2:TMas2;
  A3:TMas3;
  i,j,x, y:byte;
function zero(i:integer):boolean;
begin
zero:=false;
if i=0 then zero:=true;
end;
function interval(i:integer):boolean;
begin
interval:=false;if (i<=12) and (i>=1) then interval:=true;
end;
begin
X:=0;
Y:=0;
randomize;
for i:=1 to CSize1 do
begin for j:=1 to CSize1 do
begin  A1[i, j]:=random(50);
  write(A1[i, j]:3);
if zero(A1[i, j]) then inc(x);
if interval(A1[i,j]) then inc(y);
end;
writeln;
end;
writeln('Kol-vo 0 =', x);
writeln('Kol-vo v intervale=', y);
writeln;
x:=0;
y:=0;
for i:=1 to CSize2 do
begin for j:=1 to CSize2 do
begin  A2[i, j]:=random(50);
write(A2[i,j]:3);
if zero(A1[i,j]) then inc(x);
if interval(A2[i,j]) then inc(y);
  end;
writeln;
end;
writeln('Kol-vo 0 =', x);
writeln('Kol-vo v intervale=', y);
writeln;
x:=0;
y:=0;
for i:=1 to CSize3 do
begin for j:=1 to CSize3 do
begin  A3[i, j]:=random(50);
  write(A3[i,j]:3);
if zero(A3[i,j]) then inc(x);
if interval(A3[i,j]) then inc(y);
  end;
writeln;
end;
writeln('Kol-vo 0 =', x);
writeln('Kol-vo v intervale=', y);
writeln;
x:=0;
y:=0;
end.

9 лет назад