Опубликовано 22.08.2017 по предмету Информатика от Гость >> <<

Програмирование
.Паскаль.Цикл
Корень3+корень6+корень9+...корень3n
Помогите пожалуйста
Надо написать программу

Ответ оставил Гость

//Pascal ABC.NET v3.1 сборка 1172

Var
 i,n:integer;
 r:real;
begin
 readln(n);
 for i:=1 to n do
 r:=r+sqrt(3*i);
 writeln(r);
end.

Пример ввода:
3
Пример вывода:
7.18154055035206