Решить задачу, используя любой цикл (с предусловием, либо...

Question

Решить задачу, используя любой цикл (с предусловием, либо постусловием). S=10+(2*x)/3+(3*x)/3+(4*x)/3+⋯+(n*x)/3

Answer 1

На паскале пойдет?

var

 i,n: integer;

 x,s : real;

begin

 s := 10;

 readln(x,n);

 for i := 2 to n do

    s := s + (i*x)/3

writeln(s);

end.

Comments

Могу на алгоритмическом то же самое написать

---

Ошибка: for i := 2 to n do (Program1.pas(14) : Нельзя преобразовать тип real к integer)

---

Извиняюсь, там n должен быть integer

---

попробуй теперь, я изменил