Паскаль выдает ошибку Встречено "read" а ожидалось ";" program PLОСНАD;
var А,В,С:real;
D:real;
Р:real;
S:real;
begin
writeln('Задайте стороны A,В,С:')
read(А,В,С);
Р:=(А + В + С)/2;
D:=A;
if D if D if P>D
then
begin
S:=SQRT(P(P-A)(P-B)*(P-C));
writeln{'ПЛОЩАДЬ:',S:2:1))
end

217

475

Посмотреть ответы 1

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

Zhamik11

Информатика

4,7(96 оценок)

Const a=5.1; x=3.29; var y,z: double; begin y: =2*exp(4*x)+arctan(x/a); z: =cos(x*sqr(x))+sqr(sin(x)); writeln('y=',y,', z=',z) end. результат выполнения программы: y=1038354.42291114, z=-0.472433980670957 const m=6; n=8; var a: array[1..m,1..n] of double; b: array[1..m*n] of double; i,j,k,imax,imin: integer; t: double; begin // инициализация а и формирование в randomize; writeln('исходный массив a'); k: =0; for i: =1 to m do begin for j: =1 to n do begin a[i,j]: =10*random-5; { случайное число на [-5; 5] } write(a[i,j]: 8: 4); t: =cos(a[i,j]); if (t> =0) and (t< 0.5) then begin inc(k); b[k]: =a[i,j] end end; writeln end; // вывод сформированного массива в writeln('исходный массив в'); for i: =1 to k do write(b[i]: 8: 4); writeln; // поиск максимума и минимума с последующим обменом их местами imax: =1; imin: =1; for i: =2 to k do if b[i]< b[imin] then imin: =i else if b[i]> b[imax] then imax: =i; t: =b[imax]; b[imax]: =b[imin]; b[imin]: =t; // вывод результирующего массива в writeln('результирующий массив в'); for i: =1 to k do write(b[i]: 8: 4); writeln end. тестовое решение: исходный массив a -1.6788 -0.7273 -3.4919 2.9903 -4.3249 -2.2230 -2.1157 0.9685 2.0515 4.6821 0.2794 -1.4624 4.9668 -3.5754 -3.4115 -0.5592 3.0535 1.1339 0.0992 -0.5307 -0.6266 2.2623 1.9578 -1.3175 -0.6154 3.6080 2.4223 -4.8354 -2.2978 3.8982 -2.2427 2.0410 -1.1019 -3.4703 -2.0104 -1.3044 0.7744 0.6897 3.1747 1.3257 -4.3942 -1.6707 -3.2494 -0.6551 3.4726 -0.2896 3.4154 1.9644 исходный массив в -1.4624 4.9668 1.1339 -1.3175 -4.8354 -1.1019 -1.3044 1.3257 результирующий массив в -1.4624 -4.8354 1.1339 -1.3175 4.9668 -1.1019 -1.3044 1.3257

Реши свою проблему, спроси otvet5GPT

Быстро
Мгновенный ответ на твой вопрос
Точно
Бот обладает знаниями во всех сферах
Бесплатно
Задай вопрос и получи ответ бесплатно

Задай свой вопрос

Популярно: Информатика

Есть вопросы?

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

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

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

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

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