даны сведения о кубиках:размер кубика,его цвет,материал.Найти количество кубиков опредеденного материала с ребром превыщающим 3см?паскаль
Ответы
Ответ дал:
0
const
N=10;var
a,b: array[1..N] of integer;
r,m,i,y: integer;
beginwriteln('Дано 10 кубиков.');for i:=1 to N do begin
a[i]:=random(6);
b[i]:=a[i]+random(3);
end;
for i:=1 to N do
if (a[i]+1=b[i]) and (a[i]>3) then
r:=r+1; writeln(r,' кубиков(а) из дерева.');
for i:=1 to N do
if (a[i]+2=b[i]) and (a[i]>3) then
m:=m+1; writeln(m,' кубиков(а) из металла.');
for i:=1 to N do
if(a[i]+3=b[i]) and (a[i]>3) then
y:=y+1; writeln(y,' кубиков(а) из пластмассы.');
end.
N=10;var
a,b: array[1..N] of integer;
r,m,i,y: integer;
beginwriteln('Дано 10 кубиков.');for i:=1 to N do begin
a[i]:=random(6);
b[i]:=a[i]+random(3);
end;
for i:=1 to N do
if (a[i]+1=b[i]) and (a[i]>3) then
r:=r+1; writeln(r,' кубиков(а) из дерева.');
for i:=1 to N do
if (a[i]+2=b[i]) and (a[i]>3) then
m:=m+1; writeln(m,' кубиков(а) из металла.');
for i:=1 to N do
if(a[i]+3=b[i]) and (a[i]>3) then
y:=y+1; writeln(y,' кубиков(а) из пластмассы.');
end.
Ответ дал:
0
Нет цвета так как, судя по вопросу, он там и не нужен.
Ответ дал:
0
После begin пробел.
Вас заинтересует
1 год назад
1 год назад
6 лет назад
6 лет назад
8 лет назад
9 лет назад
9 лет назад