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

Question

76

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

категория: информатика

ответить

в избранное ссылка

Знаете ответ?

tim71 · Accepted Answer

43

tim71

26 февраля 2024

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

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: