Free Pascal

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Другие темы раздела
Free Pascal Сформировать стек,содержащий строки и сохранить его в текстовом файле https://www.cyberforum.ru/ free-pascal/ thread276641.html 1.Написать функцию,которая вычисляет среднее арифметическое элементов непустого списка. 2.Сформировать стек,содержащий строки и сохранить его в текстовом файле.	Free Pascal суммировать числа Суммировать вводимые положительные числа так, что каждое число, порядковый номер которого кратен 3, игнорируется. Определить количество введенных и просуммированных чисел. При достижении текущей...
Free Pascal Поменять местами строку матрицы с максимальным элементом на главной диагонали со строкой с заданным номером Задана квадратная матрица. Поменять местами строку с максимальным элементом на главной диагонали со строкой с заданным номером m. https://www.cyberforum.ru/ free-pascal/ thread276608.html	Free Pascal Найдите длину максимальной подпоследовательности по правилу Ограничение времени : 1 с Ограничение памяти : 256 M Данная последовательность из N натуральных чисел. Найдите длину ее максимальной подпоследовательности из элементов, которые следуют друг за... https://www.cyberforum.ru/ free-pascal/ thread276394.html
Площадь шестиугольника Free Pascal Ограничение времени : 1 с Ограничение памяти : 256 M Вам необходимо найти площадь правильного шестиугольника со стороной (2*L)/(3^0.25) Входные данные Единственное целое число L (1 ≤ L...	Free Pascal Проверить, есть ли в записи числа m цифры, совпадающие с цифрами в записи числа n Ребята нужна ваша помощь, начинаю изучать паскаль и вообще всё как то глухо пока что, препад задал задачу, даже не представляю как сделать( Даны два натуральных числа m и n(m< 9999, n < 9999).... https://www.cyberforum.ru/ free-pascal/ thread276288.html
Free Pascal Определить кольцо с центром в начале координат В одномерном массиве с четным количеством элементов (2N) находятся координаты N точек плоскости. Они располагаются в следующем порядке: х1 у1 х2, у2, х3, у3 и т.д. Определить кольцо с центром в... https://www.cyberforum.ru/ free-pascal/ thread276226.html	Найти количество слов в данной строке Free Pascal Дан ряд символов. Найти количество слов в данной строке. Слова разделяются произвольным количеством пробелов. Составить программу.
Free Pascal Найти количество слов в данной строке https://www.cyberforum.ru/ free-pascal/ thread275761.html напишите програмку на Free Pascal: Дано строка символов. Найти количество слов в данной строке. Слова разделяются одним пробелом.	Free Pascal слабо Задача по Free Pascal: Дано ряд символов. Найти количесто слов у данем ряде. Слова разделяются одным пробелом. https://www.cyberforum.ru/ free-pascal/ thread275626.html
Free Pascal Вычисление импульсов двух тел. Алгоритм 1) Заданы массы некоторых двух тела m1, m2. Тела движутся и проходят за время t следующие расстояния S1 и S2 соответственно. Вычислить импульсы тел Р1 и Р2. Если Р1< Р2, вычислить разность этих...	Free Pascal В Паскале через двойной массив составить матрицу Добрый вечер. Задание такое. Надо составить программу,где в данной матрице надо найти элемент,который наибольший во всём ряду и наименьший во всей колонке,учитывая тот факт,что в матрице могут... https://www.cyberforum.ru/ free-pascal/ thread275248.html

Zverit

Уничтожитель печенек

281 / 209 / 49

Регистрация: 07.02.2010

Сообщений: 724

14.04.2011, 22:21

Построить последовательность чисел следующим образом - Free Pascal - Ответ 1553631

14.04.2011, 22:21. Показов 1639. Ответов 2

Метки (Все метки)

Сообщение было отмечено Jekaua как решение

Решение

Pascal

 uses crt;
var i : integer ;
a : real;
begin
clrscr;
repeat
readln(i);
 if i>0 then
  if i mod 2=0 then
   a:= i/2;
  if i mod 2 = 1 then
   a:= 3*i+1;
 writeln (a:3:2);
until i = 1 ;
end.

Вернуться к обсуждению:
Построить последовательность чисел следующим образом Free Pascal

Следующий ответ

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

14.04.2011, 22:21

Готовые ответы и решения:

Построить массив В,элементы которого определяются следующим образом Bi=∑Ai
Дан массив вещественных чисел А.Построить массив В,элементы которого определяются следующим образом...

Функция F(n) определена для целых положительных чисел следующим образом
Функция F(n) определена для целых положительных чисел следующим образом: в (n div i), вместо i...

Дано целое число N (> 0). Последовательность вещественных чисел AK определяется следующим образом: A0 = 2,
Дано целое число N (> 0). Последовательность вещественных чисел AK определяется следующим образом:...

Дано целое число N (>2). Последовательность вещественных чисел AK определяется следующим образом
Имя входного файла zс37.in Имя выходного файла zc37.out Дано целое число N (>2)....

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

14.04.2011, 22:21

Помогаю со студенческими работами здесь

Дано целое число N (>0). Последовательность вещественных чисел Ak определяются следующим образом: A0=2, Ak=2+1/Ak-1, K=1,2,. . Вывести элементы A1,A
Пожайлуйста помогите надо решить задачу за выходные!!! Дано целое число N (>0)....

Дано вещественное число ε (> 0). Последовательность вещественных чисел AK определяется следующим образом: A1 = 2, AK = 2 + 1/AK–1, K = 2, 3, … . Найти
Дано вещественное число ε (> 0). Последовательность вещественных чисел AK определяется следующим...

Последовательность многочленов T0(x),T1(x),. определяется следующим образом
Последовательность многочленов T0(x),T1(x),..... определяется следующим...

Рекурентная последовательность определена следующим образом
Помогите решить с помощью функции.

Наверх