Статистика
Всего в нашей базе более 4 327 664 вопросов и 6 445 978 ответов!

N слагаемых вида (i+1)вквадрате, где i=1,2,..., N

10-11 класс

Haleckyavaleri 01 июля 2014 г., 3:36:53 (9 лет назад)
Рейтинг
+ 0 -
0 Жалоба
+ 0 -
Julia000005
01 июля 2014 г., 4:34:42 (9 лет назад)

Программа на паскале:

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. 

Ответить

Другие вопросы из категории

Help me,help!

Информационный обьём текста ,набранного на компьютере с использованием кодировки Unicode (каждый символ кодируется 16 битами.) -4Кб.Определить колличество символов в тексте.

Читайте также

В общем, задача стоит такая - нарисовать таблицу, где будут выводить значения.

Текст такой, но где-то есть ошибка.

1)Вычислить P=N!,где N вводится с клавиатуры с помощью трех видов цикла(1)repeat 2)while 3)For 2)модифицировать эти программы введя проверку N,если

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]. Определение количества нулей в массиве и количества элементов, лежащих в этом интервале, оформить в виде подпрограммы.

1.Среди цифр четырехзначного числа есть четная. Накидал тут решение, но где-то ошибка, не могу

понять где

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.



Вы находитесь на странице вопроса "N слагаемых вида (i+1)вквадрате, где i=1,2,..., N", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.