Форум программистов, компьютерный форум, киберфорум
Free Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.50/6: Рейтинг темы: голосов - 6, средняя оценка - 4.50
0 / 0 / 0
Регистрация: 27.04.2014
Сообщений: 10
1

Сформировать массив из 50 элементов, первые два равняются единице, а последующие равны сумме двух предыдущих

12.05.2014, 19:37. Просмотров 1175. Ответов 1
Метки нет (Все метки)

Задание состоит в том что, нужно сформировать массив из 50 элементов, первые два равняются единице, а последующие равны сумме двух предыдущих( это я понял как сделать). Но задание еще в том, что нужно определить и вывести числа, которые делятся на 1 и на самих себя, т.е простые числа. Вот здесь уже проблемка, в интернете поискал, нашел пример, но все равно не получается, все что получилось, представлено на фото, помогите сделать.
0
Миниатюры
Сформировать массив из 50 элементов, первые два равняются единице, а последующие равны сумме двух предыдущих   Сформировать массив из 50 элементов, первые два равняются единице, а последующие равны сумме двух предыдущих  
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
12.05.2014, 19:37
Ответы с готовыми решениями:

Создать массив: первые два элемента задаются с клавиатуры, а все последующие равны сумме двух предыдущих
Создать массив в котором первые два элемента задаются с клавиатуры, а все последующие равны сумме...

Сформировать массив n элементов где каждый элемент массива равен сумме двух предыдущих
Сформировать массив n элементов где каждый элемент массива равен сумме двух предыдущих элементов,...

Определить сколько элементов последовательности равны сумме двух предыдущих элементов
Дана последовательность целых чисел заканчивающаяся 0. Определить сколько элементов этой...

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

1
1641 / 1070 / 1081
Регистрация: 03.07.2013
Сообщений: 4,507
14.05.2014, 00:16 2
Лучший ответ Сообщение было отмечено den32120 как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Function Prosto(N : Longint) : Boolean;
  Function Prostoe(K : Longint) : Boolean;
  Begin
    If K>1 then
    Begin
      If (N mod K)<>0 then Prostoe:=Prostoe(K-1) else Prostoe:=False;
    End  
      else Prostoe:=True;
  End;
Begin
  Prosto:=Prostoe(N-1);
End;
 
Begin
  Writeln(Prosto(113));
End.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
14.05.2014, 00:16

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Получить матрицу, элементы каждой следующей строки которой равны сумме соответствующих элементов двух предыдущих строк
14. Получить действительную матрицу А порядка 5, первый и второй строки которой задаются...

Создать массив, элементы с нечетным индексом равны квадрату индекса, остальные - сумме предыдущих элементов
Составьте программу , с помощью которой создайте массив из 27 элементов, в котором элемент с...

Создать массив, каждый элемент которого равен сумме двух предыдущих элементов
Известны два первых элемента массива B: B=4, B=8.Создать массив, каждый элемент которого равен...

Создать массив, каждый элемент которого равен сумме двух предыдущих элементов
Одномерный Известны два первых элемента массива B: B=4, B=8. Создать массив, каждый элемент...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2020, vBulletin Solutions, Inc.