Program krutioi; var c, a, b:real; begin read(a, b); c:=a * b / (a * a + b * b + 1); writeln(c); end. надеюсь формулу правильно написал т.к из твоего текста непонятно как имено формула выглядет
#include <iostream> using namespace std; int main() { setlocale(0,""); // это что бы на русском было cout<<" Сижу за решеткой в темнице сырой."<<endl; cout<<"Вскормленный в неволе орел молодой,"<<endl; cout<<"Мой грустный товарищ, махая крылом,"<<endl; cout<<"Кровавую пищу клюет под окном,"<<endl; cout<<"Клюет, и бросает, и смотрит в окно,"<<endl; cout<<"Как будто со мною задумал одно;"<<endl; cout<<"Зовет меня взглядом и криком своим"<<endl; cout<<"И вымолвить хочет: «Давай улетим!"<<endl; cout<<"Мы вольные птицы; пора, брат, пора!"<<endl; cout<<"Туда, где за тучей белеет гора,"<<endl; cout<<"Туда, где синеют морские края,"<<endl; cout<<"Туда, где гуляем лишь ветер... да я!..»"<<endl; return 0; }
// PascalABC.NET 3.1, сборка 1179 от 29.02.2016 procedure GetProdNeg(a:array of integer; var p:real); // произведение отрицательных элементов begin p:=a.Where(x->x<0).Aggregate(1.0,(p,e)->p*e) end;
function IsPrime(n:integer):boolean:= Range(2,Round(sqrt(n))).All(i->n mod i<>0);
procedure ArrPrime(n:integer; var a:array of integer); // массив простых чисел не больших n begin a:=Range(2,n).Where(i->IsPrime(i)).ToArray end;
begin var n:=ReadInteger('n='); var a:=ArrRandom(n,-50,50); a.Println; var r:real; GetProdNeg(a,r); Writeln('Произведение ',r); n:=ReadInteger('n='); var b:array of integer; ArrPrime(n,b); b.Println end.
var c, a, b:real;
begin
read(a, b);
c:=a * b / (a * a + b * b + 1);
writeln(c);
end.
надеюсь формулу правильно написал т.к из твоего текста непонятно как имено формула выглядет