Предмет: Геометрия, автор: AdebdeXiao

ПОМОГИТЕ СРОЧНО
высота СК прямоугольного треугольника АВС проведенная гипотенузе делит ее на отрезки длиной 9см и 25см найдите катеты и периметр треугольника
ЗА СПАМ БАН!!

Ответы

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

2

если что то не понятно спрашивайте

Приложения:

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

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

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

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

подскажите пожалуйста как сделать разбор? слово: зашумели.

1 год назад

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

Как разобрать слово повстречался для орфографического разбора?

1 год назад

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

сделайде пожалуйста
морфологический разбор слова:
1.годы
2.поэт
3.время
4.сказками

1 год назад

Предмет: Химия, автор: nastnik16

Расставить коэффициенты методом электронного баланса : SO2+CL2+H2O=H2SO4+HCL

7 лет назад

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

Из вычисленного массива R удалить все положительные элементы, расположенные до последнего отрицательного элемента
Программа:
type mas = array [1..100] of real;var x, h, a: real; i, n, j, k, l: integer; r: mas;begin repeat writeln ('Введите 1<=n<=100'); readln (n); if (n<1) or (n>100) then writeln ('Некорректный ввод'); until (n>=1) and (n<=100); writeln ('Введите h и a'); readln (h, a); writeln ('Введите х'); readln (x); for i:=1 to n do begin r[i]:=6*cos(a*x+i*h); end; write('Массив: '); for i:=1 to n do writeln(r[i]); {Найденный массив} j:=0; k:=0; for i:=1 to n do if r[i]<0 then k:=i; for i:=1 to n do if (r[i]>0) and (i<k) then begin (28 строка) for i:=k to n do begin j:=j+1; r[j]:=r[i]; end; n:=j;end;writeln('Новый массив');for i:=1 to n do writeln (r[j]);end.
Ошибка: Нельзя изменять значение переменной цикла внутри этого цикла (строка 28)
Я понимаю суть ошибки, но не знаю, чем заменить "i" для нужного мне результата

7 лет назад