Дана последовательность 5,9,13,17... . Составьте блок-схему алгоритма для подсчета...

Постоянный пользователь нашего ресурса написал нам почту в 19:21 с просьбой предоставить развернутый ответ на его вопрос. Наши эксперты отнесли этот вопрос к разделу Разное. Для ответа был привлечен один из опытных специалистов, который занимается написанием студенческих работ.

Цитируем вопрос ваш вопрос

1) Дана последовательность 5,9,13,17... . Составьте блок-схему алгоритма для подсчета числа слагаемых, сумма которых равна 324.

2) Даны две точки на плоскости. Определить какая из точек плоскости ближе к началу координат.

3) Определить, есть ли среди цифр заданного трехзначного числа одинаковые.

ПОМОГИТЕ, ХОТЯ БЫ 1 ЗАДАНИЕ РЕШИТЕ, БУДУ БЛАГОДАРНА! :(

Разбор вопроса и ответ на него

Раздел 'Разное', к которому был отнесён этот вопрос является не простой рубрикой. Для подготовки ответа на вопросы из этой рубрики специалист должен обладать широкими познаниями в различных научных областях. Однако в нашей компании таковые имеются.

Вы спрашивали:

1) Дана последовательность 5,9,13,17... . Составьте блок-схему алгоритма для подсчета числа слагаемых, сумма которых равна 324.

2) Даны две точки на плоскости. Определить какая из точек плоскости ближе к началу координат.

3) Определить, есть ли среди цифр заданного трехзначного числа одинаковые.

ПОМОГИТЕ, ХОТЯ БЫ 1 ЗАДАНИЕ РЕШИТЕ, БУДУ БЛАГОДАРНА! :(

Конечно этот ответ может полностью не раскрыть тему вопроса, но мы постарались сделать его максимально полным. Предлагаем ознакомиться с мнением эксперта по этой теме:

1) 5 9 13 17 21 25 29 33 37 41 45 49

 

var sum, i, s: integer;  //обыявляем необходимые переменные

//sum - сумма, i - кол-во слогаемых, s - само слогаемое

begin  //начало
  sum := 0; i := 1; s := 5;  //первое слогаемое = 5
  repeat
    sum := sum + s;  //к сумме прибавляем слагаемое
    s := s + 4;  //увеличиваем слогаемое
    i := i + 1;   //увеличиваем кол-во слогаемых
  until (sum = 324);  //выход когда сумма равна 324
  writeln (Слогаемых:);  // выводим кол-во слогаемых
  write (i);
end.  //конец

 

К нам на почту приходит много вопросов. Мы стараемся отвечать на все. Однако вы должны понимать, что большая загруженность увеличивает время ответа. Сейчас среднее время ответа равно 6:40.