Ну думаю я правильно сделал, как я понял твою просьбу
Одну единственную
for (интератор начала, условие выхода, шаг) { }
Var i,k:integer;
s:real;
begin
k:=2;
for i:=1 to 25 do
begin
s:=s+sqrt(k);
k:=k+2
end;
WriteLn(s)
end.
Отношения между объектами - диаграммы Эйлера-Венна
Объект-фотографии
Стоимость объекта -числа
Р. об.- эскиз
Ф. р. об. - чертежа
Эл. с. об. -схемы
Цв. об.-рисунка
<span>//PascalABC.NET
//Версия 3.3. сборка 1583 (25.11.2017)</span>
begin
var n:=ReadInteger('Введите n-> ');
for var i:=1 to n do
Writeln((1+i)/(2+i):0:2);
end.
Пример:
Введите n-> 5
0.67
0.75
0.80
0.83
0.86