Дача.сад.много ягоды.чиж огород. разные овощи.придумать рассказ выписать словарные - №24193372

Дача.сад.много ягоды.чиж огород. разные овощи.придумать рассказ выписать словарные словп
- Предмет:
  Русский язык
- Автор:
  francespeck
- 5 лет назад

Ответы 0

Добавить свой ответ

Еще вопросы

Написать почему Одиссей был смелый хитрый и продуманый.
- Предмет:
  Литература
- Автор:
  johannatljk
- 5 лет назад
- Ответов:
  
  1
- Смотреть
Текст: Льёт и льёт мутный дождь.
Выписать слова, распределяя их по группам:
А) Проверяемая безударная гласная в корне слова:
Б) Парная согласная в корне и на конце слова:
В) Разделительный мягкий знак:
- Предмет:
  Русский язык
- Автор:
  bessiemorales
- 5 лет назад
- Ответов:
  
  1
- Смотреть
Вероятность попадания в мишень стрелком равна 0,7.Какова вероятность хотя бы одного попадания в мишень этим стрелком в результате двух выстрелов?
- Предмет:
  Математика
- Автор:
  tyson40
- 5 лет назад
- Ответов:
  
  1
- Смотреть
Function S(a,b,c:real):real;
Var
p:real;
Begin

p:=(a+b+c)/2;
result:=Sqrt(p*(p-a)*(p-b)*(p-c))
End;
Var
a,b,c,k,v,t,o,g,e,q,r,w:real;
Begin
writeln(' найти радиус или площадь треугольника? если радиус,то нажмите 1. Если площадь, то нажмите 2 ');
//если радиус,то нажмите 1. Если площадь, то нажмите 2
readln(g);
if g=2 then

begin
writeln('окружность вписанная(нажмите 1) или описанная(нажмите 2)?');
readln(e);

if e=1 then
begin
write('сторона а=');
readln(a);
write('сторона b =');
readln(b);
write('сторона с =');
readln(c);
q:=S(a,b,c);
r:=(a+b+c)/2*q;
writeln('радиус вписанной окружности =' , r );
end

else

if e=2 then
begin
write('сторона а=');
readln(a);
write('сторона b =');
readln(b);
write('сторона c =');
readln(c);
q:=S(a,b,c);
w:=a*b*c/4*q;
writeln('радиус описанной окружности =', w );

end
else
if g=1 then

begin

writeln('что вам известно? если а и h, то нажмите 1. если а , b,с то нажмите 2 ' );
//а-сторона; h-высота,проведенная на сторону; b-cторона; с -сторона;
readln(k);
if k=1 then
begin
write('высота =');
readln(v);
write('cторона=');
readln(t);
o:=1/2*v*t;
writeln('площадь=',o) ;
end

else

if k=2 then

begin
Write('a = ');
ReadLn(a);
Write('b = ');
ReadLn(b);
Write('c = ');
ReadLn(c);
if (a else WriteLn('Треугольник не существует');
end;
end;
end;
end.

что здесь неправильно ? почему он может найти радиус . но на площади треугольника останавливается? если можно то прошу сразу исправить буду благодарен
- Предмет:
  Информатика
- Автор:
  jackie88
- 5 лет назад
- Ответов:
  
  0
- Смотреть

How much to ban the user?

1 hour 1 day 100 years