Составить программу вычисления суммы квадратов чисел от 1 до n.
5-9 класс
|
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.
Другие вопросы из категории
8-битную кодировку windows-1251. При этом информационный объем сообщения составил 60 байт. Определите информационный объем в байтах сообщения до перекодировки
(числа вводятся с клавиатуры)
Читайте также
2) составить программу нахождения чисел от 10 до 99 сумма квадратов которых кратна 13 (mod=0)
3) найти сумму всех целых нечетных чисел меньших 100
4) найти сумму чисел в диапазоне от A до B кратных четырём. Числа А и В вводятся с клавы.
5) Найти все натуральный делители натурального числа n
n-нечетное. Использовать цикл WHILE
Var , , : ;
Begin
:=0;
For := to do
Begin
;
;
End;
Writeln(' =', );
End.
Там, где пробелы, вставить что нужно