Question

Помогите пожалуйста, необходимо сделать программу для цикла с предусловием, используя while do. В паскале
y = 1^2+ 3^2 + 5^2 + …. + n^2

Answer 1

Ответ:

var

 n, s :integer;

begin

 write('Введите n:');

 readln(n);

 s:=0;

 while n>=1 do begin

   s:=s+n*n;

   dec(n)

 end;  

 writeln('y=', s)  ;

end.