Нужно написать программу на Pascal

@Physt2 · Регистрация: 04.01.2019

Студворк — интернет-сервис помощи студентам

Напечатать величины a1, a2, ..., an, где a0 — заданное целоечисло,ai = a [i / 2] i 1 a + − при i = 1, 2, ... n. [i/2] означает целую часть числа i/2.

@Puporev · 08.01.2019, 09:09

Сообщение от Physt2

i 1 a +

Что это?

@Physt2 · 08.01.2019, 09:15 **[ТС]**

Вот это задание

@Puporev · 08.01.2019, 09:23

Нужно писать так
a_i = a_{[i / 2]} + a _i-1 при i = 1, 2, ... n

@Physt2 · 08.01.2019, 09:28 **[ТС]**

Не могли бы вы полностью написать программу. Буду вам благодарен.

@Puporev · 08.01.2019, 09:43

Если можно использовать массив, то так.

Pascal

var n,i:integer;
    a:array[0..20]of integer;
begin
repeat
write('Введите размер последовательности от 1 до 20 n=');
readln(n);
until n in[1..20];
write('a0=');
readln(a[0]);
writeln('Ряд');
write(a[0],' ');
for i:=1 to n do
 begin
  a[i]:=a[trunc(i/2)]+a[i-1];
  write(a[i],' ');
 end;
end.

@Physt2 1 / 1 / 0 Регистрация: 04.01.2019 Сообщений: 42
		1
	Нужно написать программу на Pascal 08.01.2019, 09:07. Показов 1203. Ответов 5 Метки программирования (Все метки) Напечатать величины a1, a2, ..., an, где a0 — заданное целоечисло,ai = a [i / 2] i 1 a + − при i = 1, 2, ... n. [i/2] означает целую часть числа i/2. 0

@Puporev Почетный модератор 64291 / 47589 / 32740 Регистрация: 18.05.2008 Сообщений: 115,181
	08.01.2019, 09:09	2
	Сообщение от Physt2 i 1 a + Что это? 0

@Physt2 1 / 1 / 0 Регистрация: 04.01.2019 Сообщений: 42
	08.01.2019, 09:15 [ТС]	3
	Вот это задание Миниатюры 0

@Puporev Почетный модератор 64291 / 47589 / 32740 Регистрация: 18.05.2008 Сообщений: 115,181
	08.01.2019, 09:23	4
	Нужно писать так a_i = a_{[i / 2]} + a _i-1 при i = 1, 2, ... n 0

@Physt2 1 / 1 / 0 Регистрация: 04.01.2019 Сообщений: 42
	08.01.2019, 09:28 [ТС]	5
	Не могли бы вы полностью написать программу. Буду вам благодарен. 0

	08.01.2019, 09:43

Опции темы

Нужно написать программу на Pascal

Решение