//Pascal ABC.NET 3.1 сборка 1219
Const
n=6;
Type
ty=array[1..n,1..n] of integer;
procedure inic(var ar:ty);
Var
i,j,k:integer;
begin
k:=0;
for i:=1 to n do
begin
for j:=1 to n do
ar[i,j]:=0;
if not(odd(i)) then
begin
k:=k+2;
ar[i,k]:=1;
end;
end;
end;
#include<iostream>
using namespace std;
int main()
{
int A,B,C = 0;
cin >> A >> B;
while(A > 1)
{
if (A % 2 != 0) C+=B;
B*=2;
A/=2;
}
cout << (C+=B);
return 0;
}
а есть картинка этого задание или опишите его нормально
Program al;
var a,b,c:integer;
s,p:real;
begin
writeln('vvedite a=');
readln(a);
writeln('b=');
readln(b);
writeln('c=');
readln(c);
p:=(a+b+c)/2;
s:=<span>sqrt(p*(p-a)*(p-b)*(p-c));
writeln('s=',s);
readln;
end.</span>
Це означає як шукати. Через пошукові системи.