var a,b,c,d:real;
Begin
read(a,b,c,d);
if ((a<c) and (b<d)) or ((b<c) and (a<d)) then
writeln('Впишется')
else writeln('Не впишется');
End.
var a,b,c:real;
Begin
read(a,b,c);
if (a>b) and (a>c) then a:= b*c;
if (b>a) and (b>c) then a:= a*c;
if (c>b) and (c>a) then a:= b*a;
writeln(a);
End.
3)var x,y,z,u:real;
function max(x,y,z:real):real;
begin
if (x>=y) and (x>=z) then max:= x;
if (y>=x) and (y>=z) then max:= y;
if (z>=y) and (z>=x) then max:= z;
end;
function min(x,y,z:real):real;
begin
if (x<=y) and (x<=z) then min:= x;
if (y<=x) and (y<=z) then min:= y;
if (z<=y) and (z<=x) then min:= z;
end;
Begin
read(x,y,z);
u:=(max(x,y,z)*max(x,y,z)-exp(x*ln(2)))/(sin(2*x)+max(x,y,z)/min(x,y,z));
writeln(u);
End.
using System;
using System.Collections.Generic;
using System.Linq;
using System.Numerics;
public class Program
{
public static void Main(string[] args)
{
Console.WriteLine("Enter 12 integer numbers");
var Arr = new List<int>();
for (int i = 0; i < 12; i++)
{
Arr.Add(int.Parse(Console.ReadLine()));
}
Console.WriteLine($"Кол-во нулевых элементов: {Arr.Where(p => p == 0).Count()}");
Console.WriteLine($"Positive numbers product: {Arr.Where(p => p > 0).Aggregate(BigInteger.One, (p, q) => p * q)}");
Console.ReadKey();
}
}
Объяснение:
Добавьте ссылку на сборку System.Numerics в вашем проекте для корректной работы программы. Иначе будет ругаться на несуществующее пространство System.Numerics