3
var n: integer;
s: real;
begin
s:=0;
n:=1;
while n <= 3*3*3*3*3*3*3*3 do begin
s:= s+1/n;
n:= n*3;
end;
writeln(s);
end.
4
var a: integer;
s: real;
begin
s:=1;
readln(a);
for var i:=1 to a do begin
s:= s-1/(i+1);
s:= s+1/(i+2);
end;
writeln(s);
end.
Самое понятное решение таких задач, с моей точки зрения, такое
Обозначим за X 4-ю строку
Тогда 5)ХХE
6)XXEXXEF
7)<u>XXEXXEFXXE</u>XXEFG
В 4-ой строке 15 символов
Значит в 7-й подчеркнутый момент составляет 30*3+4=94
Т.е на 95 месте будет начало строки Х
<span>AABAABCAABA<u>ABCD</u> дальше опять идет Х т.е<u> </u></span><u>AA</u>BAABCAABAABCD
Т.е ответ <u>ABCD</u><u>AA</u>
1)деловая бумага;2)подтверждает факт или право
В разделе описаний добавь еще одну переменную с типа integer
и вместо последних 9-ти строк твоей программы должно быть:
{заполняем массив b минимальными элементами каждой строки}
for i := 1 to 5 do
begin
for j := 1 to 5 do if a[i,j] < b[i] then b[i] := a[i,j];
Write(b[i], ' ')
end;
WriteLn;
{сортируем массив b}
for i := 1 to 4 do
for i+1 := 1 to 5 do
if b[i] < b[j] then
begin
c := b[i];
b[i] := b[j];
b[j] := c
end;
{выводим отсортированный массив на экран}
for i := i to 5 do Write(b[i], ' ');
WriteLn
END.