ANTICHAT — форум по информационной безопасности, OSINT и технологиям

program primer;
var
f,x:real;
begin
writeln('Vvedite luboe chislo');
writeln('x=');
readln(x);
if x > 0 then
begin
f := exp (3*ln(x)) / sqrt(3) - exp (x) * abs (ln (exp (3*ln(1.37)))) + exp(3*ln(x)) + (4/3);
writeln ('f=',f);
end;
if x <= 0 then
begin
writeln ('else');
f := ( exp (3*ln(x))) + sqrt (7) / cos (x - 2 * Pi) - abs ( ln (exp (3*ln(x)))) + 4 * (sin(x)/cos(x));
writeln ('f=',f);
writeln ('Uslovie ne vipolnaetsa');
end;
readln;
end.

program atob;
uses CRT; 
var a,b,n1,n2,i,sum:integer;
begin clrscr; 
writeln('Vvedite chislo a '); 
readln(a); 
writeln('Vvedite chislo b '); 
readln(b); 
n1:=13; n2:=5; 
for i:=a to b do
begin if ((i mod n1)=0) AND ((i mod n2)=0) Then 
sum:=sum+i; 
end; 
writeln('summa ravna => ' , sum); 
readln(i); 
end.

 int a, b, tr, pt,ost1,ost2,ml,st;
            Console.WriteLine("Введите начало диапа,а");
            a = int.Parse(Console.ReadLine());
            Console.WriteLine("Введите конец диапазона,в");
            b = int.Parse(Console.ReadLine());
            
            for (a = a; a <= b; a++)
                for( ml=1;ml<=9;ml++)
                    for (st = 0; st <= 9; b++)
                    {
                        tr = 100 * ml + st;
                        pt = 10000 * ml + st;
                        ost1 = tr % 13;
                        ost2 = pt % 13;
                        if (ost1 == 0)
                            if (ost2 == 0)
                                Console.WriteLine(tr);
                        Console.WriteLine(pt);
                        else
                        Console.WriteLine("таких чисел нет"!);

                    }
            Console.ReadLine();

class Program
    {
        static void Main(string[] args)
        {
            int k = 0;

            Console.WriteLine("Minimum: ");
            int a = int.Parse(Console.ReadLine());
            
            Console.WriteLine("Maximum: ");
            int b = int.Parse(Console.ReadLine());


            if (a <= b)
            {
                for (int i = a; i <= b; i++)
                {
                    if ((i % 13 == 0) && ((i>=100 && i<=999) || (i>=10000 && i<=99999)))
                    {
                        Console.WriteLine(i);
                        k++;
                        
                    }
                }
                if (k < 1)
                {
                    Console.WriteLine("No recuired Numbers");
                }
            }
            else Console.WriteLine("Minimum is bigger then Maximum");
            Console.ReadLine();

        }
    }
}