Ответ: 8
var x,a,b,c,s:integer;
begin
x:=350;
a:=x div 100;
b:=x mod 100 div 10;
c:=x mod 10;
s:=a+b+c;
writeln(s);
end.
Считаем, что массив А(N) и N заданы глобально и заполнены в основной программе.
Function SumN:real;
var i:integer;S1:real;
begin
S1:=1;
For i:=1 to N do If A(i)<0 then S1:=S1*A(i);
SumN:=S1;
End;
<em>// PascalABC.NET 3.3, сборка 1583 от 25.11.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var (fact,eps,s,x):=(1.0,0.001,0.0,1);
while true do begin
fact:=fact*x;
var a:=Power(2/x,x)*fact;
if Abs(a)>eps then begin x+=1; s+=a end
else Break
end;
Writeln('S = ',s:0:3)
end.
<u>Результат</u>
S = 12.946
Выполним несколько первых шагов алгоритма:
2 "7", 82 "4"
4 "7", 78 "4"
Очевидно, что из 86 "4" получим в конце концов 42 "7" и 2 "4"
(42=84/4*2).
Следующий этап:
2 "4", 38 "7", 2 "4"
4 "4", 34 "7", 2 "4"
36 "7", 2 "4"
...
30 "7", 2 "4"
...
6 "7", 2 "4"
2 "4", 2 "7", 2 "4"
Таким образом, из 86 "4" получится строка "447744"
Менеджеры загрузки оперируют с уже загруженными файлами, позволяют хранить информацию о том, когда, откуда был скачан файл. Основное предназначение FTP-клиентов, наоборот, работа с удалённым FTP-сервером, для работы требуется подключение к сети. FTP-клиент также поддерживает загрузку файлов, но кроме этого позволяет и послать файлы на FTP-сервер.
