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

Що під силу зробити кожній людині для збереження географічної оболонки

Ответы

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

6

Не мусорити Не ламати дерева Не Засорбювати океан або водойми

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

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

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

Предмет: Русский язык, автор: fedyasobyanin

Упражнение 3 Дайте толкование подчеркнутых слов. Выпишите существительные, образованные путем перехода из одной части речи в другую.
Превратите Н в НН при помощи приставок.
Образец: жареная – пережаренная
Точеный, крученый, моченый, толченый, гашеный, пареный, кошеный, вязаный, крашеный, тушеный, соленый, давленый, сушеный, золоченый, званый, печеный.

1 год назад

Предмет: Русский язык, автор: borovskiy777

поставьте корень и ударение этим словам
бегом звезда китовый насолить переломить лосиный развалить раздевалка смягчение и увядание

1 год назад

Предмет: Українська мова, автор: miklaysh

допоможіть написати звуковий аналіз слів гілля,гедзь,іжа

1 год назад

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

Известно,что сумма второго,шестого и девятнадцатого членов арифметической прогрессии равна 39 .Определите номер члена этой прогрессии при сложении которого с третьим,седьмым и десятым членом в результате получается 52

8 лет назад

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

Function S(a,b,c:real):real;
Var
p:real ;
i,n, k,g: integer ;
Begin
p:=(a+b+c)/2;
result:=Sqrt(p*(p-a)*(p-b)*(p-c))

End;
Var
a,b,k,q,h,d,x1,x2 , w,c:real;
g:string;
Begin
writeln('добро пожаловать в математический помощник!!! как дела?');
readln(g);

writeln('найти корни квадратного уравнения(4) высоту в прямоугольном треугольнике(2) вывести таблицу тригонометрических тождеств(3) воспользоваться формулой Герона(1) ');
readln(k);
if k=1 then
Write('a = ');
ReadLn(a);
Write('b = ');
ReadLn(b);
Write('c = ');
ReadLn(c);
WriteLn('S = ',S(a,b,c));

if k=2 then
writeln('введите проекции');
readln(q,w);
h:=sqrt(q*q+w*w);
writeln('высота=',h);

if k=4 then
Begin
Writeln ('Введите коэффициенты квадратного уравнения: a,b,c');
Readln (A,B,C);
D:=B*B-4*A*C;
If D<0 Then Writeln ('Корней нет ')
Else
Begin
X1:=(-B+SQRT(D))/2/A;
X2:=(-B-SQRT(D))/2/A;
Writeln ('X1=',X1:8:3,' X2=',X2:8:3);
end;
end;
end.

ПОЖАЛУЙСТА ПОМОГИТЕ ОТКОРЕКТИРОВАТЬ И НАЙТИ ОШИБКУ В КОДЕ, ИСПРАВИВ ЕЕ

8 лет назад