Var A,B:real;
Begin
Write('A = ');ReadLn(A);
Write('B = ');ReadLn(B);
WriteLn('S.Ar. = ',(A*A*A+B*B*B)/2);
WriteLn('S.G. = ',Sqrt(Abs(A*B)));
End.
Var
x1,y1,x2,y2:real;
Begin
Write('x1 = ');
ReadLn(x1);
Write('y1 = ');
ReadLn(y1);
Write('x2 = ');
ReadLn(x2);
Write('y2 = ');
ReadLn(y2);
WriteLn('R = ',sqrt(sqr(x1-x2)+sqr(y1-y2)));
End.
<span>a = 20
b = 3
c = mod(a,b) + b = mod(20,3) + 3 = 2+3 = 5</span>
Апельсиновое яйцо. состав: скорлупа, дольки, желток.
действия: разбить скорлупу, достать дольки и полить их желтком
Вот функция проверки числа на простоту
bool isSimple(int n){
for(int i=2;i<=sqrt(n);i++)
if(n%i==0) return false;
return true;
}