М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
мкм6ккмг
мкм6ккмг
28.09.2021 10:43 •  Информатика

Обслити середнє арифметичне доданих чисел серед чисел перше з яких дорівнює заданому а кожне наступне менше від попереднього на 30 (Паскаль)

👇
Открыть все ответы
Ответ:
Хаченок1337
Хаченок1337
28.09.2021

Угол - это часть плоскости, ограниченная двумя лучами, выходящими из одной точки.

Точка называется вершиной угла, а лучи - сторонами угла.

Если стороны угла образуют прямую (являются дополнительными лучами), то угол называется развернутым.

Углы измеряются в градусах. Градус - это 1/180 часть развернутого угла.

Виды углов в зависимости от градусной меры:

Если градусная мера угла меньше 90°, то угол острый.

Если градусная мера угла равна 90°, то угол прямой.

Если градусная мера угла больше 90°, но меньше 180°,  то угол тупой.

Если градусная мера угла равна 180°, то угол развернутый.

Два угла называются вертикальными, если их стороны являются дополнительными лучами.

Свойство вертикальных углов: вертикальные углы равны.

Два угла называются смежными, если одна сторона у них общая, а две другие являются дополнительными лучами.

Свойство смежных углов: сумма смежных углов равна 180°.

Биссектриса угла - это луч с началом в вершине угла, который делит угол на две равные части.

4,5(89 оценок)
Ответ:
Сасаев
Сасаев
28.09.2021
Pascal

Алгоритм1
 var   
s : string;   
n1,n2 : integer;   
i,l : integer; 
begin 
readln (s);   
n1 := 0;  n2 := 0; 
l := Length(s); 
 for i := 1 to l do 
  if (s[i] = ' ') then 
   if n1 = 0 then 
    n1 := i 
   else 
    n2 := i;   

if n2 = 0 then   
s := ' ' 
else   
s := copy(s,n1+1,n2-n1-1);   
writeln (s); 
end.

Алгоритм2
  var   
s : string;   
n1,n2 : integer;   
i,l : integer;   
r : boolean; 
begin 
readln (s);   
n1 := 0;  n2 := 0; 
r := false; 
l := Length(s); 
i := 1;   
While (i<=l) and (not r) do   
begin   
 if s[i] = ' ' then   
  begin   
   n1 := i;   
   r := true;   
  end;   
i := i +1;   
end;     

r :=false; 
i := l;   

While (i>0) and (not r) do   
begin   
if s[i] = ' ' then     
begin     
n2 := i;     
r := true;     
end;   
i := i -1;   
end;   

if n2 = n1 then   
s := ' ' 
else   
s := copy(s,n1+1,n2-n1-1);   

writeln (s); 
end.
4,4(56 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ