1) подходят все кроме 7й
2) подходят 1, 3, 4, 5, 6, 8, 9
3) подходят 1, 3, 4, 6, 8, 9.
4) подходят 1, 3, 4, 8, 9.
5 цепочек.
Var
s, p: longint;
i, j, n: integer;
begin
Write('Введите n: '); Readln(n);
s := 0;
for i := 1 to n do
begin
p := 1;
for j := i to 2 * i do p := p * j;
s := s + p
end;
Writeln('Сумма равна ', s)
end.
<em><u>Тестовое решение:</u></em>
Введите n: 5
Сумма равна 158306
Var a, sa: real; i, k: integer;
Begin
k:=0; sa:=0; i:=0;
While k<3 do begin
Read (a);
If a<0 then k:=k+1;
If k<3 then begin
sa:=sa+a;
i:=i+1;
end
end;
sa:=sa/i;
writeln (sa)
end.
Для початку давайте розберемося в тому, що саме являє собою форматування диска, і чому після нього є реальна можливість відновити якщо не всі, то більшу частину даних. При первинному (або нізькорівневому ) форматуванні відбувається створення файлової таблиці, в яку система записує всі дані, необхідні для роботи. Коли запускається процес форматування диска, таблиця нікуди не дівається, а лише обнуляється. Стара інформація, яка перебувала в ній, не може відповідати розмірам таблиці, тому стає просто невидимою для системи. І якщо на диск не проводився запис нових даних, тоді відновити файли після форматування диска можна.