Нужно написать программы в Паскале. 1. Вычислите N! (N ...
Нужно написать программы в Паскале. 1. Вычислите N! (N факториал). 2. Вычислите X^y (X в степени Y). 3. Найти количество отрицательных и произведение положительных чисел, введённых с клавиатуры. 4. Найти все трёхзначные числа, сумма цифр которых больше заданного числа.
Есть ответ
17.12.2022
459
Ответ
1)
Program Pr1;uses crt;var x,i,n:integer;beginclrscr;readln(n);x:=1;for i:=1 to n do x:=x*i;writeln(x);end.
2)
Program Pr1;uses crt;var x,y:real;Beginclrscr;readln(x,y);writeln(Exp(y*ln(x)));end.
3)
Program Pr1; uses crt; var mas:array[byte] of integer; i,n,c,b:integer; Begin clrscr; writeln('Vvedite kol chisel'); readln(n); c:=0;b:=1; for i:=1 to n do begin writeln('vvedite ',i,' chislo '); readln(mas[i]); end; For i:=1 to n do if mas[i]x then begin writeln(i); y:=y+1; end; writeln('Vsego ',y); end.
Если вы нашли правильное решение, вы можете поблагодарить нас начиная с 10 рублей.
Просто нажмите на кнопку "Подарить".
Просто нажмите на кнопку "Подарить".
17.12.2022
