Var
y, s, d: real;
i, n, j: integer;
function factorial(N: integer): longint;
begin
<span>if N = 0 then factorial := 1 </span>
Else factorial := factorial(N - 1) * N
end;
begin
readln(n);
s := 1;
<span>for i := 2 to n do </span>
begin
d := 1;
for j := 2 to i do
d := d + (1 / j);
<span>s := s + (factorial(i) / d); </span>
end;
write(s);
<span>end.</span>
Var i,k,n: integer;
begin
for i:=100 to 999 do
begin
k:=i; n:=0;
repeat
n:=n+round(power(k mod 10,3));
k:=k div 10;
until k=0;
if n=i then write(i,' ');
end;
end.
153 370 371 407
Ответ:
program p_1;
const n=15;
var i:integer;
p:real;
a:array [1..n] of integer;
begin
randomize;
for i:=1 to n do
begin
a[i]:=random(130)-50;
writeln('a[',i,'] = ',a[i])
end;
p:=1;
for i:=1 to n do p:=p*a[i];
writeln;
writeln('p = ',p)
end.
14 часов. +- 1 или 2 часа, чтоб заснуть. 12 часов точно будет спать.
Последнее должно быть кулер. А что насчет ребуса? Где картинка?