Помогите пожалуйста с Паскалем!! Номер 10, 11 Очень надо! Пж не берите у других!!!!!
Приложения:
![](https://st.uroker.com/files/6be/6be9472e75ca0adb17510bb804942e00.png)
Ответы
Ответ дал:
0
10.
program Ok;
const
n=10;
var A:array[1..n] of integer;
B:array[1..n] of integer;
S:array[1..n] of real;
i,k:integer;
c,p:real;
begin
for i:=1 to n do
Read(A[i]);
for i:=1 to n do
Read(B[i]);
for i:=1 to n do
beginc:=sqrt(sqr(A[i])+sqr(B[i]));
p:=(A[i]+B[i]+c)/2;
S[i]:=sqrt(p*(p-A[i])*(p-B[i])*(p-c));
end;
for i:=1 to n-1 do
begin
if(S[i]>S[i+1]) then
k:=i;
end;
writeln('Номер ',k, ' Катеты = ', A[k],' ', B[k],' Площадь = ',S[k]);
for i:=1 to n do
begin
if(S[k]=S[i]) then
writeln('Номер ',i,' Катеты = ', A[i],' ', B[i],' Площадь = ',S[i]);
end;
end.
program Ok;
const
n=10;
var A:array[1..n] of integer;
B:array[1..n] of integer;
S:array[1..n] of real;
i,k:integer;
c,p:real;
begin
for i:=1 to n do
Read(A[i]);
for i:=1 to n do
Read(B[i]);
for i:=1 to n do
beginc:=sqrt(sqr(A[i])+sqr(B[i]));
p:=(A[i]+B[i]+c)/2;
S[i]:=sqrt(p*(p-A[i])*(p-B[i])*(p-c));
end;
for i:=1 to n-1 do
begin
if(S[i]>S[i+1]) then
k:=i;
end;
writeln('Номер ',k, ' Катеты = ', A[k],' ', B[k],' Площадь = ',S[k]);
for i:=1 to n do
begin
if(S[k]=S[i]) then
writeln('Номер ',i,' Катеты = ', A[i],' ', B[i],' Площадь = ',S[i]);
end;
end.
Ответ дал:
0
Не запускается
Ответ дал:
0
Потому что у меня бегин и переменная слиплись, вот так строчка должна выглядеть: begin
c:=sqrt(sqr(A[i])+sqr(B[i]));
c:=sqrt(sqr(A[i])+sqr(B[i]));
Вас заинтересует
1 год назад
1 год назад
2 года назад
2 года назад
8 лет назад
8 лет назад