//PascalABC.NET 3.2 сборка 1318
//Вариант по формуле Бине
Var
n,fibn:real;
i:integer;
begin
readln(n);
if n<=0 then writeln('Не существует чисел Фиббоначи меньше 0')
else
begin
i:=0;
while fibn<n do
begin
fibn:=(power((1+sqrt(5))/2,i)-power((1-sqrt(5))/2,i))/sqrt(5);
inc(i);
end;
writeln((power((1+sqrt(5))/2,i)-power((1-sqrt(5))/2,i))/sqrt(5)-1);
end;
end.
//В лоб
Var
sum,n,buf,fib0,fib1:integer;
function fibb(fib0,fib1:integer):integer;
begin
result:=fib0+fib1;
end;
begin
fib0:=0;
fib1:=1;
readln(n);
if n<=0 then
writeln('Не существует чисел Фиббоначи меньше 0')
else
begin
if fibb(fib0,fib1)>=n then sum:=0 else
begin
while fibb(fib0,fib1)<n do
begin
buf:=fib1;
fib1:=fibb(fib0,fib1);
fib0:=buf;
end;
sum:=fibb(fib1,fibb(fib0,fib1))-1;
end;
writeln(sum);
end;
end.
Пример ввода:
12
Пример вывода:
20
Помимо оперативной памяти, компьютеру необходима дополнительная память для долговременного размещения данных. Такие устройства называются ВЗУ (внешние запоминающие устройства). Различные способы хранения и записи информации служат для разных целей,
<span>на сегодняшний день не существует универсального ВЗУ, которое может быть использовано как постоянное и переносное одновременно, и при этом быть доступным рядовым пользователям. Информацию необходимо сохранять на носителях, не зависящих от наличия напряжения, и таких размеров, которые превышают возможности всех современных видов первичной памяти. Сравнительно долговременное хранилище данных, расположенное вне системной платы компьютера, называется вторичным хранилищем данных (secondary storage). Внешняя (долговременная) память — это место длительного хранения данных (программ, результатов расчётов, текстов и т.д.), не используемых в данный момент в оперативной памяти компьютера. Внешняя память, в отличие от оперативной, является энергонезависимой. Носители внешней памяти, кроме того, обеспечивают транспортировку данных в тех случаях, когда компьютеры не объединены в сети (локальные или глобальные). Для работы с внешней памятью необходимо наличие накопителя (устройства, обеспечивающего запись и (или) считывание информации) и устройства хранения — носителя. </span>
<span>В своей работе я рассмотрю следующие запоминающие устройства: винчестеры, дискеты, стримеры, MO-накопители, оптические: CD-R, CD-RW, DVD-R, DVD-RW, и новейшие запоминающие устройства. </span>
Uses Crt;
Const
N = 15;
M = 10;
Var
A:array[1..N,1..M] of real;
i,j:integer;
S3,S7:real;
Begin
Randomize;
ClrScr;
WriteLn('Исходный массив:');
For i:= 1 to N do
Begin
For j:= 1 to M do
Begin
A[i,j]:=random*13;
Write(A[i,j]:6:3,' ')
End;
WriteLn
End;
S3:=0;
S7:=0;
For j:= 1 to M do
Begin
S3:=S3+A[3,j];
S7:=S7+A[7,j];
End;
WriteLn('S3 = ',S3:0:3);
WriteLn('S7 = ',S7:0:3);
if S3 > S7 then WriteLn('S3 > S7')
else if S3 < S7 then WriteLn('S3 < S7')
else WriteLn('S3 = S7');
ReadLn
End.
Var f:text ;
c:array [1..10] of integer;
i:integer;
begin
for i:=1 to 10 do begin
writeln ('Введите ',i,' число');
read(c[i]);
end;
assign (f,'res.txt');
rewrite(f);
for i:=1 to 10 do
write (f,' ',c[i]);
close (f);
end.
Писал на Pascal ABC. Для того, чтобы работала, тебе нужно создать папку, и в этой папке сохранить данную программу. После запуска, тебе нужно будет ввести 10 чисел. Результат сохранится в той папке, в которой будет сохранена программа !
Ну во первых 2+2 не 5, а четыре. А "Нравится ли вам изучать информатику ?"- это вопрос по этому оно лишнее.