//Синус синуса числа N раз: public static double NSin(int n, double val) => n <= 1 ? Math.Sin(val) : NSin(n - 1, Math.Sin(val)); //Сумма синусов синусов числа от 1 до N: public static double NSinSum(int n, double val) => n <= 1 ? NSin(n, val) : NSin(n, val) + NSin(n - 1, val);
Program asd; uses crt; var a,b,c,max:integer; r:real; begin Write('Введите число A: '); Readln(a); Write('Введите число B: '); Readln(b); Write('Введите число C: '); Readln(c); If a>=b then max:=a else max:=b; If c>max then max:=c; r:=a+b+c; If (A>B) and (B>C) and (C>0) then Writeln('A= ',a*2,' B= ',b*2,' C= ',c*2); If (A<0) and (B<0) and (C<0) and (A<>B) and (B<>C) and (C<>A) then begin A:=max; B:=max; C:=max; Writeln('A= ',a,' B= ',b,' C= ',c); end else Writeln('Symma: ',r); end.
В С# такой код получился)) Результат прикрепил в виде картинки, правда весь не поместился)) Если нужно, могу скинуть готовую программу) double c; int x=0; int y = 0; int z=0; for (int i = 100; i < 1000; i++) { c = i % 9; if (c == 0) { int b = i; x = b / 100; b = b % 100; y = b / 10; b = b % 10; z = b; if (x == 0 || x == 1 || x == 4 || x == 5 || x == 8 || y == 0 || y == 1 || y == 4 || y == 5 || y == 8 || z == 0 || z == 1 || z == 4 || z == 5 || z == 8) { if (x != y && x != z && z != y) Console.WriteLine(i); } } }
public static double NSin(int n, double val) => n <= 1 ? Math.Sin(val) : NSin(n - 1, Math.Sin(val));
//Сумма синусов синусов числа от 1 до N:
public static double NSinSum(int n, double val) => n <= 1 ? NSin(n, val) : NSin(n, val) + NSin(n - 1, val);