Дано целое число N (N>1). Сформировать и вывести целочисленную последовательность из N чисел Фибоначчи по правилу: первые 2 элемента равны 1, а ка
10-11 класс
|
ждое следующее, начиная с третьего, равно сумме двух предыдущих.
// Примечание: В задании не сказало создать массив, мы его и не создаем!
program fibonachi;
var n, x1, x2, xs, i:integer;
beginx1:=1;
x2:=1;
write ('Введите число N = ');
readln (n);
write (x1, ' ', x2, ' ');
for i:=3 to n do
begin
xs:=x1+x2;
write (xs, ' ');
x1:=x2;
x2:=xs;
end;
end.
program z;
var a:array[1..1000] of integer; i,n:integer;
begin
write('Введите N (N>1, N<=1000)');
read(n);
a[1]:=1;
a[2]:=1;
write(a[1], ' ', a[2], ' ');
for i:=3 to n do
begin
a[i]:=a[i-2]+a[i-1];
write(a[i], ' ');
end;
end.
Другие вопросы из категории
Найти максимальный по модулю элемент массива А.
Массив я вычислил, а остальное не получается(
using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;
namespace ConsoleApplication27
{
class Program
{
static void Main(string[] args)
{
int n = 30;
double[] a = new double[30];
for (int i = 0; i <= 20; i++)
{
a[i] = Math.Sqrt(i ^ 2 + 1) - Math.Sin(i / n);
Console.WriteLine("a(" + i + ")=" + a[i]);
}Console.ReadKey();
}
}
}
пяти лампочек может гореть одним из двух цветов – красным или белым. Сколько различных сигналов можно передать с помощью панели (все лампочки должны гореть, порядок цветов имеет значение)?
Просмотрщик
текстовых файлов. Написать программу, которая позволяет просматривать текстовые
файлы (выводит на экран содержимое файла). Имя просматриваемого файла должно
вводиться с клавиатуры. Вывод содержимого файла произвести постранично.
Примечание:
Результат работы с данными вывести на экран и в новый файл. Файл с входными
данными имеет название INPUT.TXT для текстовых файлов.
на PascakABC оч нужно..плизз
Читайте также
1–12, введенное с клавиатуры (1 — январь, 2 — февраль и т. д.). Вывести название соответствующего времени года («зима», «весна», «лето», «осень»).
2, Напишите программу, реализующую следующие вычисления. Дана матрица размера M x N (числа вводятся с клавиатуры). Для каждого столбца матрицы найти произведение его элементов. Полученные значения вывести в текстовый файл.
3, Напишите программу с использованием функции CircleS(R) вещественного типа, находящей площадь круга радиуса R (R — вещественное). С помощью этой функции найти площади трех кругов с данными радиусами. Площадь круга радиуса R вычисляется по формуле S = πR2.
4, Напишите программу, реализующую следующие вычисления. Дано целое число N (1≤N≤26), введенное с клавиатуры. Вывести N первых прописных (то есть заглавных) букв латинского алфавита.
0,если их несколько то номер крайней правой.
2) Дано натуральное число. Определить сумму m его последних цифр
3)Дано натуральное число. определить его максимальную цифру.
4) дано предложение. заменить в нем все вхождения под строку str1 на подстроку str2
5) последовательность чисел Фибоначчи образуется так: первый и второй член последовательности равен 1, каждый следующий равен сумме двух предыдущих(1,1,2,3,5,,8,12..) Дано натуральное число n>=3 : а) найти k-й член последовательности б)получить первые n членов последовательности в)для заданного n определить верно ли,что сумма первых n членов есть четное число
в записи числа N цифра «2». Если имеется, то вывести True, если нет — вывести False.
Заранее спасибо :3