Помогите пожалуйста с Паскалем!! Номер 10, 11 Очень надобно! Пж не
Помогите пожалуйста с Паскалем!! Номер 10, 11 Очень надобно! Пж не берите у иных!!!!!
Задать свой вопрос1 ответ
Ксения Вайсмон
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]gt;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]gt;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.
Эвелина Тиско
Не запускается
Степан Негорюев
Потому что у меня бегин и переменная слиплись, вот так строка обязана смотреться: beginc:=sqrt(sqr(A[i])+sqr(B[i]));
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
Газообразный аммиак объёмом 2.24 л (н.у.) был полностью поглощён 14.68 мл
Химия.
Упражнение 2 Выпишите глаголы и вставьте пропущенные буквы
Русский язык.
Радиус окружности, описанной около равностороннего треугольника, равен 6. Найдите сторону треугольника
Геометрия.
Вычислите силу с которой при давлении 100 КПа атмосфера давит на
Физика.
Синтаксический разбор и схема Но мы сказали, что нам ничего не
Русский язык.
Массовая доля целлюлозы в древесине составляет 50%. Какая масса спирта может
Химия.
помоги мне пожалуста прш
869*(61124-488*125)-50974
Математика.
по шкале высот определить ,в каком направлении происходит понижение релефа уральских гор
География.
Помогите пожалуйста написать Сочинение Овчинникова "победитель'
Литература.
Здравствуйте. Нужен цитатный план испытания лётчика в лесу главы2-13 по повести
Разные вопросы.
Облако тегов