есть равнобедренный прямоугольный треугольник со следующими элементами:

1 - катет a,
2 - гипотенуза b,
3 - высота h, выходящий из прямого угла,
4 - площадь s.

написать процедуру
void ta90 (int el, float val, float * a, float * b, float * h, float * s),

которая на основе номера нужного элемента и его значение рассчитывает значения всех других элементов треугольника.

входные параметры:
el - номер элемента равнобедренного прямоугольного треугольника (1-4)
val - величина соответствующего элемента;

выходные параметры: a - катет, b - гипотенуза, h - высота, s - площадь.

примечание. при некорректных входных данных всем исходным параметрам процедура должна присвоить значение -1

Еще несколько лет назад мы даже не представляли, что компьютеры смогут играть в шахматы не хуже гроссмейстеров. Что информация будет храниться не на локальных компьютерах, а в «облаке»… Мы, безусловно, живем в эпоху «информационной революции»: объемы данных растут небывалыми темпами, порождая необходимость в постоянном развитии технологий.

Чтобы идти ногу со временем, учебные заведения по всему миру вводят новые специальности. Представляем 5 уникальных профессий будущего, связанных с обработкой данных и искусственным интеллектом.

1. Специалист по обработке Big Data



Термином Big Data принято описывать большие массивы разнообразной информации со сложной, неоднородной или вообще неопределённой структурой. Эта информация может быть структурирована или не структурирована, но специалист по работе с Big Data обязан уметь работать с ней и приводить к удобному для восприятия виду. Сама же наука о данных (Data Science) лежит на стыке математики, статистики, информатики, бизнеса и экономики. Соответственно, хороший специалист должен иметь знания во всех этих сферах. Рынок Big Data сейчас только начинает формироваться и в скором будущем может стать одним из основных в сфере IT.

2. Специалист по разработке нейронных сетей

Нейронные сети сегодня проникают не только всё глубже в IT и бизнес, но и в нашу повседневную жизнь. Они обрабатывают фотографии и видео в приложениях, ищут людей в соцсетях по фотографии, играют в го и даже имитируют рукописный текст. Но это лишь верхушка айсберга, то, что мы используем в быту. Настоящие серьёзные нейронные сети решают сложные задачи в экономике, статистике, химических и биологических исследованиях. Разработка и обучение нейронных сетей — важная часть нашего будущего и первый шаг на пути к созданию полноценного искусственного интеллекта.

1)uses crt;
var i,j,n,ans:integer;
begin
read(n);
for i:=1 to 9 do
for j:=0 to 9 do
if i+j=n then
ans:=ans+1;
writeln(ans);
end.
2)
uses crt;
var i,n:integer;
x:array[1..100] of integer;
begin
writeln('Введите количество x и значения: ');
read(n);
for i:=1 to n do
read(x[i]);
writeln('x  y');
for i:=1 to n do
writeln(x[i],'  ',x[i]*x[i]+3);
end.
3.
uses crt;
var i:integer;
begin
for i:=1 to 5 do
write(i*i*i,' ');
end.
4.
uses crt;
var i,n,sum:real;
begin
writeln('Введите N:');
read(n);
i:=3;
while i<=n do
begin
sum:=sum+1/i;
i:=i+3;
end;
writeln(sum);
end.
5.
uses crt;
var j,i,n,sum:integer;
a:array[1..100] of integer;
begin
writeln('Введите количество чисел и сами числа:');
read(n);
for i:=1 to n do
begin
sum:=0;
read(a[i]);
for j:=1 to length(inttostr(a[i])) do
sum:=sum+strtoint(inttostr(a[i])[j]);
if sum mod 3 = 0 then
write(a[i],' ');
end;
end.
6.a)uses crt;
var n:string;
begin
read(n);
writeln(max(strtoint(n[1]),strtoint(n[2])));
end.
б)
uses crt;
var n:string;
begin
read(n);
writeln(max(max(strtoint(n[1]),strtoint(n[2])),strtoint(n[3])));
end.