Var a,b:real;
begin
write('Введите катеты: ');
read(a,b);
writeln;
write('Гипотенуза = ',sqrt(sqr(a)+sqr(b)):0:2);
end.
"Каков разум, таковы и речи"
"Ростом с тебя, а разумом с теля"
" Время и случай разум подают"
" Ученье — свет, а неученье — тьма"
"Повторенье — мать ученья"
" Не стыдно не знать, стыдно не учиться"
" Умелые руки не знают скуки"
" С молитвой в устах, с работой в руках"
"Без труда не вытащишь и рыбку из труда"
я написал для икса косинус из b*c, исправь если нужно косинус b умножить на просто с ))
program pr;
var a,b,c:integer;
begin
readln(a,b,c);
writeln('x=',(Sqrt(abs(0.4*a-2))-3*cos(b*c)));
writeln('y=',(Ln(abs(a*b*c/2))-1/(3*a)));
end.
<span><span>program qwr;
uses crt;
var
f : real;
i : byte;
z,a : array [0..3] of real;
begin
for i:=1 to 3 do
begin
write('z[ ',i,']= ');
readln(z[i]);
end;
for i:=1 to 3 do
begin
write('a[ ',i,']= ');
readln(a[i]);
end;
writeln(' ______________________');
writeln(' Z[i] | A[i] | f ');
for i:=1 to 3 do
begin
f:=exp(ln(z[i]+a[i])*(3/2));
writeln(' ',z[i]:(3),' | ',a[i]:(3),' | ',f:(3):(2));
end;
writeln(' _______|_______|______');
end.</span></span>