Program lab10; var n: integer; begin n: =0; repeat n: =n+1; until n*n+1> =1000; writeln(‘значение n равно‘, n: 1); end. не нравится знак в предпоследней строчке. program class; type mas=array[1..15] of integer; var a: mas; var i, s, k: integer; begin for i: =1 to 15 do переменная a переменная a[1] переменная a[4] readln(a[i]); {заполняем массив} k: =0; s: =0; for i: =1 to 15 do begin s: =s+ a[i]; if a[i]> 10 then k: =k+1; end; writeln(k); writeln(s); readln; end. program sort; type mas=array[1..10] of integer; var a: mas; i,n,s,b: integer; begin for i: =1 to 10 do readln(a[i]); {заполнение массива} n: =10; {номер последнего элемента, участвующего в сравнении} s: =0; {перестановок не было} repeat for i: =1 to n do if a[i] begin s: =1; b: =a[i]; a[i]: =a[i+1]; a[i+1]: =b end; {меняем местами соседние элементы} n: =n-1 until s=0; for i: =1 to 10 do write(a[i]); везде выдает ошибку, хотя это пример к

140

443

Ответы на вопрос:

4,4(51 оценок)

program per;

var

a,b,c,p,p2: real;

begin

writeln('Введите катеты прямоугольного треугольника: ');

readln(a);

readln(b);

c := sqrt(a*a+b*b);

writeln('Гипотенуза = ',c);

p:=(a+b+c)/2;

p2:=sqrt(p*(p-a)*(p-b)*(p-c));

writeln('Площадь равна ', p2);

writeln('Периметр равен', a + b + c)

end.

Как otvet5GPT работает?

otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.
Сколько это стоит?

Проект находиться на стадии тестирования и все услуги бесплатны.
Могу ли я использовать otvet5GPT в школе?

Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!
В чем отличия от ChatGPT?

otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.