Если я правильно помню принцип кругов Эйлера, то один... Иначе ждите второго ответа:)
1.
var x,y:real;
begin
write('x = ');
readln(x);
y:=7*x+5;
writeln('y = ',y);
end.
Пример:
x = 9
y = 68
5.
var a,b,c:real;
begin
write('a = ');
readln(a);
write('b = ');
readln(b);
c:=sqrt(a*a+b*b);
writeln('c = ',c);
end.
Пример:
a = 3
b = 4
c = 5
10.
var a,b,c,h,p:real;
begin
write('a = ');
readln(a);
write('b = ');
readln(b);
write('h = ');
readln(h);
c:=sqrt(((a-b)/2)*((a-b)/2)+h*h);
p:=a+b+2*c;
writeln('p = ',p);
end.
Пример:
a = 12
b = 6
h = 4
p = 28
+ закрашена
- не закрашена
+++
+-+
+++ <span />
M = []
n=20
base=2
for i in 0...(base**n)
bin = i
m[i]=[]
for j in 0...n
m[i][j] = bin \% base
bin/=base
end
end
start = 17
stop=729
min="22222222222222222222222222"
s=""
m.each do |ops|
num = start
s=""
ops.each do |op|
if op==0
num+=1
s+="1"
else
num*=2
s+="2"
end
if num >= stop then break end
end
# if (num == stop) then p s end
if (num == stop) and (s.size<min.size) then
min=s
end
end
p min
"1111121212221"
допустим 1 символ кодируется 1 байтом, тогда на 1 странице 32*1024/1 = 32768 символов
32768/64 = 512 сек ≈ 8,5 мин.