Вкорзине лежит 112 трёх цветов. известно, что зелёных шаров в двое больше, чем красных-вдвое больше, - id533933220200825 от SadArina 25.08.2020 23:55

Question

Информатика: Вкорзине лежит 112 трёх цветов. известно, что зелёных шаров в двое больше, чем красных-вдвое больше, чем синих. сколько в корзине красных шаров?

SadArina · Accepted Answer

1)

var a,b,c,d,s,p:real;
begin
cls;
writeln('введите стороны треугольника:');
read(a,b,c);
p:=(a+b+c)/2;
s:=Sqrt(p*(p-a)*(p-b)*(p-c));
write('Площадь треугольника S=',s);
end.

2)

var a,b,c,d,s,v:real;
begin
cls;
write('Введите 3 ребра=');
read(a,b,c);
V:=a*b*c;
S:=2*(a*b+b*c+a*c);
d:=(a+b+c)*2;
writeln('Прямоугольный параллелепипед:');
writeln('Обьём:',V);
writeln('Площадь:',S);
writeln('Сумма рёбер:',d);
end.

3)

var a,b,c,d,P:real;
begin
cls;
writeln('введите сторону и 2 угла ромба');
read(a,b,c);
if b>c then
P:=a*Sqrt(2+2*Cos(b))
else
d:=a*Sqrt(2+2*Cos(c));
writeln('Большая диагональ ромба D=',P);
writeln('Меньшая диагональ ромба d=',d);
end.

Вкорзине лежит 112 трёх цветов. известно, что зелёных шаров в двое больше, чем красных-вдвое больше, чем синих. сколько в корзине красных шаров?

MOGZ ответил