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

Question

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

Opium · Accepted Answer

program name; var i,n,x,summa,count: integer; nechet: boolean; beginWriteln ('Vvedite n: '); readln (n); //получаем nsumma: =0; count: =0; i: =1; if (n mod 2=1) then nechet: =true else nechet: =false; //проверяем четное число или нетwhile i<n do begin//пока число меньше nif (nechet) then//если число нечентноеbeginsumma: =summa+i*i*i; //прибавляем к сумме куб этого числаendelse//если число четноеbeginsumma: =summa+i*i; //прибавляем квадрат числаend; i: =i+1; //прибавляем число на 1end; writeln (' summa: ', summa); //выводим суммуreadln (); end.

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

Задание:

Решение: