1 - n = input("Факториал числа ")<span>n = int(n)
fac = 1
i = 0
while i < n:
i += 1
fac = fac * i
print ("равен",fac<span>)
2 - </span></span>import operator<span>def fact(n):
return reduce(operator.mul, xrange(1, n + 1), 1)
print fact(5<span>)
3 -</span></span> import math <span>math.factorial(5)</span>
1: 10, 1, 1
2: var
x, y, z: real;
begin
readln (x,y,z);
if (x + y > z) then
begin
if (x + z > y) then
if (y + z > x) then
writeln('треугольник построить можно')
else writeln('треугольник построить нельзя');
end
else writeln('треугольник построить нельзя');
end.
3:
var
x, y, z: real;
begin
readln (x,y,z);
if (x + y > z) and (x + z > y) and (y + z > x) then
writeln('треугольник построить можно')
else writeln('<span>треугольник построить нельзя</span>');
end.
вроде все пашет так)))
1)
var
a,b,sum : integer;
begin
Readln(a, b);
if (a mod b = 0) then
begin
while a > 0 do
begin
sum:= sum + (a mod 10);
a:= a div 10;
end;
if sum > b then
begin
Writeln('Верно');
halt;
end;
end;
Writeln('Неверно');
end.
<span>Пример:
</span><span>1234 2
Верно
</span>2)
<span>var
i: integer;
begin
For i:= 100 to 999 do
if (i*i)mod 1000 = i then Write(i, ' ');
end.</span><span>
</span><span>Результат:
376 625
</span>
3)
var
i,n : integer;
function Simple(n: Longint): boolean;
var
i: Longint;
begin
for i := 2 to Round(Sqrt(n)) do
if n mod i = 0 then
break;
Simple := n mod i <> 0;
end;
begin
Read(n);
For i:= 1 to Round(Sqrt(n)) do
if n mod i = 0 then
if (Simple(i))and(Simple(n div i)) then
begin
Writeln('YES');
halt;
end;
Writeln('NO');
end.
<u>Пример:</u>
33
YES
Мы взяли функцию f(x) = sin(x)-2*cos(x).
В процедуру-функцию function можно вставлять любые функции
program func;
uses Crt;
var a, b, x, y:real;
function f(var x:real):real;
begin
f:=sin(x)-2*cos(x);
end;
begin
ClrScr; {Очистка экрана}
Write (' a= '); ReadLn(a);
Write (' b= '); ReadLn(b);
WriteLn;
x:=a;
while x<=b do
begin
y:=f(x);
WriteLn ('y(', x:1:0, ')= ', y:4:2);
x:=x+1;
end;
ReadLn;
end.
Первая слева схема дает a ∧ b
Cледующая схема инвертирует это выражение: ¬(a ∧ b)
Самая правая схема объединяет полученную функцию с b по "ИЛИ"
¬(a ∧ b) ∨ b = ¬a ∨ ¬b ∨ b = ¬a ∨ (¬b ∨ b) = ¬a ∨ 1 = 1