Сформировать и вывести массив размера N, содержащий N первых членов данной прогрессии

@VictoriaZ · Регистрация: 18.03.2010

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

№1 Дано целое число N (>1), а также первый член A и разность D арифметической прогрессии. Сформировать и вывести массив размера N, содержащий N первых членов данной прогрессии: A, A+D, A+2*D, A+3*D,.....

№2 Дано целое число N (>1), а также первый член A и разность D геометрической прогрессии. Сформировать и вывести массив размера N, содержащий N первых членов данной прогрессии: A, A*Dв квадрате , A*D в кубе,...

№3 Дано целое число N(>2). Сформировать и вывести на экран целочисленный массив размера N, содержащий N перфых элементов последовательности Фибоначчи F(k): F(1)=1, F(2)=1,
F(k)= F(k-2) + F(k-1), K = 3, 4, .....

P.S то что в скобках это индексы....

ПОМОГИТЕ ПОЖАЛУЙСТА РЕБЯТ!!! ОЧЕНЬ ВАЖНО!!!

Добавлено через 13 минут
кто нибудь....................ПОМОГИТЕ!!!!!! !!!!!

@Jazon_deenAlt · 18.03.2010, 18:28

VictoriaZ, да не орите вы... и без вас голова болит ня... щас напишу что-то...

@koorya · 18.03.2010, 18:33

1)

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
uses crt;
const n=10;
var
   a:array[1..n] of integer;
   i,a1,d:integer;
 
begin
    clrscr;
  readln(a1, d);
  for i:=1 to n do
      a[i]:=a1+d*(i-1);
  for i:=1 to n do
      write(a[i],', ');
  writeln;
 
    readln;
end.

во втором кстати там правильнее не разность , а знаменатель и обозначается q, но это к слову

@Jazon_deenAlt · 18.03.2010, 18:39

1.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
uses crt;
var
m:array[1..100]of integer;
i,n,a,d:integer;
begin
writeln('vvedite n');
readln(n);
if n>100 then n:=100;
writeln('vvedite a');
readln(a);
writeln('vvedite d');
readln(d);
for i:=1 to n do begin
m[i]:=a+d*(i-1);
write(m[i],' ');
end;
readln;
end.

Добавлено через 4 минуты
2

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
uses crt;
var
m:array[1..100]of integer;
i,n,a,d:integer;
begin
writeln('vvedite n');
readln(n);
if n>100 then n:=100;
writeln('vvedite a');
readln(m[1]);
writeln('vvedite d');
readln(d);
write(m[1],' ');
for i:=2 to n do begin
m[i]:=m[i-1]*d;
write(m[i],' ');
end;
readln;
end.

Добавлено через 2 минуты
3.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
uses crt;
var
m:array[1..100]of integer;
i,n:integer;
begin
writeln('vvedite n');
readln(n);
if n>100 then n:=100;
m[1]:=1;
m[2]:=1;
write(m[1],' ');
write(m[2],' ');
for i:=3 to n do begin
m[i]:=m[i-2]+m[i-1];
write(m[i],' ');
end;
readln;
end.

@VictoriaZ · 18.03.2010, 18:43 **[ТС]**

спасибо огромное))) очень помогли!!)))

@Jazon_deenAlt · 18.03.2010, 19:04

VictoriaZ, незачто ня...

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами 8Observer8 20.02.2026 Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .	Конвертировать закладки radiotray-ng в m3u-плейлист damix 19.02.2026 Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .	Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI Eddy_Em 18.02.2026 Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .	Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .
И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.	«Знание-Сила» zbw 12.02.2026 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»	SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 12.02.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .

@VictoriaZ 0 / 0 / 0 Регистрация: 18.03.2010 Сообщений: 5

	Сформировать и вывести массив размера N, содержащий N первых членов данной прогрессии 18.03.2010, 18:27. Показов 4940. Ответов 5 Метки нет (Все метки) №1 Дано целое число N (>1), а также первый член A и разность D арифметической прогрессии. Сформировать и вывести массив размера N, содержащий N первых членов данной прогрессии: A, A+D, A+2D, A+3D,..... №2 Дано целое число N (>1), а также первый член A и разность D геометрической прогрессии. Сформировать и вывести массив размера N, содержащий N первых членов данной прогрессии: A, ADв квадрате , AD в кубе,... №3 Дано целое число N(>2). Сформировать и вывести на экран целочисленный массив размера N, содержащий N перфых элементов последовательности Фибоначчи F(k): F(1)=1, F(2)=1, F(k)= F(k-2) + F(k-1), K = 3, 4, ..... P.S то что в скобках это индексы.... ПОМОГИТЕ ПОЖАЛУЙСТА РЕБЯТ!!! ОЧЕНЬ ВАЖНО!!! Добавлено через 13 минут кто нибудь....................ПОМОГИТЕ!!!!!! !!!!! 0

@Jazon_deenAlt 4117 / 999 / 191 Регистрация: 09.04.2009 Сообщений: 4,223
	18.03.2010, 18:28
	VictoriaZ, да не орите вы... и без вас голова болит ня... щас напишу что-то... 0

@VictoriaZ 0 / 0 / 0 Регистрация: 18.03.2010 Сообщений: 5
	18.03.2010, 18:43 [ТС]
	спасибо огромное))) очень помогли!!))) 0

@Jazon_deenAlt 4117 / 999 / 191 Регистрация: 09.04.2009 Сообщений: 4,223
	18.03.2010, 19:04
	VictoriaZ, незачто ня... 0