Составьте программу вычисляющую, сумму квадратов чисел от 1 до ...

Question

Составьте программу вычисляющую, сумму квадратов чисел от 1 до ...

Lera

Составьте программу вычисляющую, сумму квадратов чисел от 1 до n, (n- вводится с клавиатуры) если n-четное, и сумму кубов чисел от 1 до n, если n-нечетное1 Использовать цикл REPEAT

Есть ответ

12.12.2022

190

Ответ

Answer 1 · 12.12.2022

var i,x,n:integer;

begin

i:=1;

writeln('Vvedit N');

readln(n);

if n mod 2 = 0 then begin

repeat

x:=i*i+x;

i:=i+1;

until i>n;

end

else begin

repeat

x:=i*i*i+x;

i:=i+1;

until i>n;

end;

writeln(x);

readln;

end.

Составьте программу вычисляющую, сумму квадратов чисел от 1 до ...

Ответ

var i,x,n:integer; begin i:=1; writeln('Vvedit N'); readln(n); if n mod 2 = 0 then begin repeat x:=i*i+x; i:=i+1; until i>n; end else begin repeat x:=i*i*i+x; i:=i+1; until i>n; end; writeln(x); readln; end.

var i,x,n:integer;

begin

i:=1;

writeln('Vvedit N');

readln(n);

if n mod 2 = 0 then begin

repeat

x:=ii+x;

i:=i+1;

until i>n;

end

else begin

repeat

x:=ii*i+x;

i:=i+1;

until i>n;

end;

writeln(x);

readln;

end.