var
n: integer;
function fibonachi(n: integer): integer;
begin
if (n = 1) or (n = 2) then fibonachi := 1
else fibonachi:= fibonachi(n - 1) + fibonachi(n - 2);
end;
begin
read(n);
writeln('F(', n, ') = ', fibonachi(n));
end.
------------------------------------------------------
var
n, i: integer;
a: array [1..3] of longint;
begin
read(n);
a[2] := 1;
a[3] := 1;
for i := 3 to n do
begin
a[1] := a[2];
a[2] := a[3];
a[3] := a[2] + a[1];
end;
writeln('F(', n, ') = ', a[3]);
end.
Var a, b, c, d, s, k: integer;
begin
write('Введите k: '); readln(k);
a := k div 1000; {тысячи}
b := (k mod 1000) div 100; {сотни}
c := (k mod 100) div 10; {десятки}
d := k mod 10; {единицы}
s := d * 1000 + c * 100 + b * 10 + a;
writeln('k = ', k, #10, 's = ', s);
end.
Ответ:
Объяснение:
1. Пусть у нас есть файл 'file.pas'
2. Получим случайное число при помощи оператора random. К примеру, мы получили двузначное число 34.
3. Представим его литерной величиной '34'
4. При помощи операции "склейка" получим новое имя файла:
'34'+'file.pas' = '34file.pas'
Листинг программы:
uses Crt;
var n: integer;
S1, S2, S3 : String;
begin
ClrScr;
Randomize;
S1:='file.pas';
n:= 10+random(90);
Str (n,S2);
S3:=S2 + S1;
Writeln (S1, ' ----> ',S3);
ReadLn;
end.
Реализация:
1.2000 раздели на 128
2,6 кб В 1 кб 1200 б 1200*6 раздели на 64
3,ННе понял
4,Не поняль
И то легче
Print("Введите n:")
n = int(input())
s = 0
for i in range(n+1):
s = s+i*i
print("s =",s)
Пример:
<span>Введите n: 3
s = 14</span>
