Форум программистов, компьютерный форум, киберфорум
Наши страницы

Free Pascal

Войти
Регистрация
Восстановить пароль
 
Ксю18
0 / 0 / 0
Регистрация: 04.09.2011
Сообщений: 9
#1

Помогите пожалуйста с 2-мя задачками. - Free Pascal

15.09.2011, 18:27. Просмотров 399. Ответов 4
Метки нет (Все метки)

№1. Вывести на экран первые n чисел ряда Фибоначчи.


№2.Вывести все простые числа.начиная с единицы и заканчивая введенным числом.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
15.09.2011, 18:27
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Помогите пожалуйста с 2-мя задачками. (Free Pascal):

Паскаль...Помогите с задачками!!! - Pascal
Помогите пожалуйста решить задачки, заранее всем спасибо Тема Функции и Процедуры 1. Даны действительные числа х и у. Вычислить с...

Пожалуйста помогите с тестом - Pascal
Помогите с тестом. Не понимаю я моды и медианы :'( Почему то не получается сделать таблицы Объясню, в первой: напр, 0 должен быть под...

Помогите с программой пожалуйста - Pascal
нужно составить программу по этой блок-схеме:

Помогите решить пожалуйста. - Pascal
Помогите решить пожалуйста. 1. Даны числа а, b, с, d, e, f. Напечатать координаты точки пересечения прямых, описываемых уравнениями...

Помогите пожалуйста с лабораторкой - Pascal
Помогите пожалуйста сделать эту лабораторку,все говорят,что она очень легкая,но никто нехочет мне помочь. Помогите пожалуйста.... ...

Помогите пожалуйста решить...!!!! - Pascal
Помогите пожалуйста! 1. Один и тот же вид сырья можно добывать в трех экономических районах. Стоимость добычи в каждом из этих...

4
Puporev
Модератор
52415 / 40262 / 13596
Регистрация: 18.05.2008
Сообщений: 93,073
18.09.2011, 19:18 #2
Ксю18, Зайдите в Поиск, ну надоело это ерунду писать.
0
Ксю18
0 / 0 / 0
Регистрация: 04.09.2011
Сообщений: 9
18.09.2011, 19:45  [ТС] #3
искала
про Фиббначи там есть но немного другое
изменненая мною программа не работает оэтому и прошу помочь.

второй вообще не нашла.

напишите пожалуйста для меня "умной".
Буду очень признательна.
0
Puporev
Модератор
52415 / 40262 / 13596
Регистрация: 18.05.2008
Сообщений: 93,073
18.09.2011, 19:59 #4
1.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
uses crt;
var n,a,b,c,i:integer;
begin
clrscr;
repeat
write('Введите натуральное число n>1 n=');
readln(n);
until n>1;
writeln('Первые ',n,' чисел Фибоначчи:');
if n=1 then write('1')
else if n=2 then write('1 1')
else
 begin
  write('1 1 ');
  a:=1;
  b:=1;
  i:=2;
  repeat
   c:=a+b;
   write(c,' ');
   i:=i+1;
   a:=b;
   b:=c;
  until i>n;
 end;
readln
end.
Добавлено через 3 минуты
2.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
uses crt;
var n,i,j,k:integer;
    f:boolean;
begin
clrscr;
write('Введите натуральное число n=');
readln(n);
k:=0;
for i:=1 to n do
 begin
  if i<2 then f:=false  {1 число не простое}
  else
   begin
    f:=true;
    j:=2;
    while (j*j<=i) and f do
    if i mod j=0 then f:=false
    else inc(j)
   end;
  if f then
   begin
    k:=1;
    write(i,' ');
   end;
 end;
if k=0 then write('Простых чисел нет');
readln
end.
1
odip
Эксперт С++
7159 / 3221 / 59
Регистрация: 17.06.2009
Сообщений: 14,164
19.09.2011, 09:55 #5
Вывести все простые числа.начиная с единицы и заканчивая введенным числом
Число 1 не является ни простым, ни составным
Либо криво переписано условие задачи
Либо составителю задания поставить банан
0
19.09.2011, 09:55
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
19.09.2011, 09:55
Привет! Вот еще темы с ответами:

Пожалуйста помогите. Матрица. - Pascal
Пожалуста, помогите с задачей. Найти наибольшее из чисел, встречающееся в заданной матрице более одного раза.

помогите, пожалуйста, срочно - Pascal
дали задание: ОПИСАНИЕ Программа должна использовать массив данных о сотрудниках небольшой фирмы (до 10 сотрудников). По каждому...

помогите с программой!пожалуйста:help: - Pascal
Составить программу назначения стипендии студентам по результатам сессии,используя следующие правила: 1) если все оценки 5,назначается...

помогите с задачкой пожалуйста - Pascal
Доброго времени суток. Задача следующая: дано число n нужно найти все простые от 0 до n. Подскажите как это сделать?


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

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

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