N слагаемых вида (i+1)вквадрате, где i=1,2,..., N
10-11 класс
|
Программа на паскале:
Program xxx;
Var i, n, s : integer;
begin
write ('введите N =' );
readln (n);
s:=0;
for i:=1 to n do
s:= s+ sqr(i+1);
writeln ('сумма =' , s);
readln
end.
Другие вопросы из категории
Информационный обьём текста ,набранного на компьютере с использованием кодировки Unicode (каждый символ кодируется 16 битами.) -4Кб.Определить колличество символов в тексте.
Читайте также
Текст такой, но где-то есть ошибка.
N>7,то вывести фразу"превышение допустимых значений" В другом случае подсчитать N!
Дано:массивы А1(N1,M1),A2(N2,M2),A3(N3,M3). Вычислить Х=Х1+Х2+Х3 и Y1+Y2+Y3, где Х1,Х2,Х3-количество нулей в каждом из массивов А1,А2,А3 соответственно, а Y1,Y2,Y3-количество элементов в каждом из этих массивов,лежащих в интервале [1,12]. Определение количества нулей в массиве и количества элементов, лежащих в этом интервале, оформить в виде подпрограммы.
имена и фамилии ненабравших мин. балла - 30.
понять где
var
t,s,d,e,i: integer;
begin
for i:= 1000 to 9999 do
t:=i div 1000;
s:=(i div 100)mod 10 ;
d:=(i div 10) mod 10;
e:=i mod 10;
if ((t mod 2=0) or (s mod 2 =0) or (d mod 2 =0) or (e mod 2=0)) then writeln ('TRUE') else writeln ('FALSE');
end.