СОСТАВИТЬ ПРОГРАММУ НА ЯЗЫКЕ С!!!!!!

10-11 класс

СРОЧНО!
Пожалуйста.

Числа Люка определяются так: первое число равно 1, второе равно 3, каждое следующее равно сумме двух предыдущих. Составить программу, которая находит сумму первых k чисел Люка (k – задается пользователем). Определить количество первых чисел Люка, таких, что значение ихсуммы не превышает диапазона типа int (long int). Вывести в виде таблицы данное значение суммы и три предыдущих значения суммы (с соответствующими количествами чисел Люка).

Arti2077 22 янв. 2017 г., 18:51:32 (7 лет назад)

Рейтинг

+ 0 -

Хороший вопрос

0 Жалоба

Ответить

+ 0 -

Sveta1995kisa

22 янв. 2017 г., 21:15:03 (7 лет назад)

Переделал ваш код с паскаля
#include <iostream>

using namespace std;

int main()
{
long int f[100];
long int k, i, s;
cin>>(k);
f[1] = 1;
f[2] = 3;
if (k > 0) s = 1;
if (k > 1) s = 4;

for (int i = 3;i<=k;i++)
{
f[i] = f[i - 1] + f[i - 2];
s = f[i] + s;
}
cout<<s;
return 0;

Хороший ответ

0 Жалоба Ответить

+ 0 -

ТатьянаМосквитина

22 янв. 2017 г., 22:13:56 (7 лет назад)

это числа фибоначи,ищите алгоритм

Хороший ответ

0 Жалоба Ответить

+ 0 -

Solovyns

22 янв. 2017 г., 23:11:41 (7 лет назад)

Это не фибоначчи

Хороший ответ

0 Жалоба Ответить

+ 0 -

Kirie2353

23 янв. 2017 г., 2:08:35 (7 лет назад)

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

Хороший ответ

0 Жалоба Ответить

+ 0 -

Natalibur

23 янв. 2017 г., 3:12:55 (7 лет назад)

var
f :array[1 .. 100] of longint;
k, i, s :longint;
begin
read(k);
f[1] := 1;
f[2] := 3;
if (k > 0) then s := 1;
if (k > 1) then s := 4;

for i := 3 to k do begin
f[i] := f[i - 1] + f[i - 2];
s := f[i] + s;
end;

writeln(s);
end.

Хороший ответ

0 Жалоба Ответить

Ответить

Другие вопросы из категории

S345 / 23 дек. 2016 г., 7:11:00

1) Что будет напечатано на экране в результате выполнения следующей программы:

........
A:=1;
B:=5;
WHILE A<B DO
BEGIN
WRITELN(A,B) ;
A:=A+1;
END;

2) Цикл FOR заменить на цикл WHILE DO

FOR I:=1 TO 50 DO
BEGIN
CISLO:=CH/ZN;
S:=S+CISLO;
END;