//PascalABC.NET 3.2 сборка 1318
Var
n,i,FibPre,FibPost,Fib1,Fib2:integer;
begin
readln(n);
Fib1:=1;
Fib2:=1;
while (n>=Fib1) and (n>=Fib2) do
begin
if Fib1<n then FibPre:=Fib1;
if Fib2<n then FibPre:=Fib2;
Fib1:=Fib1+Fib2;
Fib2:=Fib1+Fib2;
end;
if Fib1=n then FibPost:=Fib2 else
if n>Fib1 then FibPost:=Fib2 else FibPost:=Fib1;
if n=1 then writeln('Нет числа Фибоначчи меньше 1 ',FibPost) else writeln(FibPre,' ',FibPost);
end.
Пример ввода:
3
Пример вывода:
2 5
Одно из самых простых решений:
<span>x = int(input())
d = int(input())
print(str(x).count(str(d)))
Тестовое решение:
5456754585
5
5
</span>
Пока первый держи, остальные может завтра допишу. А так, в интернете полно примеров решения.
Var n,s,a:integer;
begin
readln(n);
for n:=n downto 1 do begin
read(a);
s+=a;
end;
writeln(s);
<span>end.</span>
А) C помощью сетевого коммутатора или маршрутизатора, так как нам надо будет подключить несколько компьютеров.
Б) DSL через телефон домашний или высокоскоростной через оптоволокно ( одним словом проводной).
В) Беспроводной интернет (Wi-fi).