Конфигурация локальной сети, которая описывает схему физического соединения компьютеров, тип оборудования, методы управления обменом, надёжность работы и возможность расширения сети ?
begin writeln('Введите количество членов последовательности k'); readln(k); s := 20; for i := 1 to k do s := s + 1 / (i * k); writeln('Сумма последовательности равна ', s) end.
Тестовый пример:
Введите количество членов последовательности k 10 Сумма последовательности равна 20.2928968253968
Варианты, дающие те же результаты: var i, k: longint; s: real;
begin writeln('Введите количество членов последовательности k'); readln(k); s := 20; i:=1; while i<=k do begin s := s + 1 / (i * k); i:=i+1 end; writeln('Сумма последовательности равна ', s) end.
var i, k: longint; s: real;
begin writeln('Введите количестко членов последовательности k'); readln(k); s := 20; i:=1; repeat s := s + 1 / (i * k); i:=i+1 until i>k; writeln('Сумма последовательности равна ', s) end.
1. Алгоритм. 2. Исполнителя характеризуют среда, элементарные действия, отказы и система команд исполнителя (СКИ). 3. После вызова команды исполнитель совершает соответствующее ей элементарное действие (см. 2). 4. Набор понятных исполнителю команд называется системой команд исполнителя (СКИ). 5. Исполнение без вникания в смысл поставленной задачи, лишь строго выполняя действия, содержащиеся в алгоритме и их последовательность. 6. Понятность для исполнителя, дискретность, определённость (детерминированность), конечность, результативность и массовость.
i, k: longint;
s: real;
begin
writeln('Введите количество членов последовательности k');
readln(k);
s := 20;
for i := 1 to k do
s := s + 1 / (i * k);
writeln('Сумма последовательности равна ', s)
end.
Тестовый пример:
Введите количество членов последовательности k
10
Сумма последовательности равна 20.2928968253968
Варианты, дающие те же результаты:
var
i, k: longint;
s: real;
begin
writeln('Введите количество членов последовательности k');
readln(k);
s := 20;
i:=1;
while i<=k do begin
s := s + 1 / (i * k);
i:=i+1
end;
writeln('Сумма последовательности равна ', s)
end.
var
i, k: longint;
s: real;
begin
writeln('Введите количестко членов последовательности k');
readln(k);
s := 20;
i:=1;
repeat
s := s + 1 / (i * k);
i:=i+1
until i>k;
writeln('Сумма последовательности равна ', s)
end.