Алг Сумма
нач
цел a
вещ x, step, s
вывод "Введите последнее число: ", нс
ввод a
x := 1
step := 0.1
s := 0
нц пока x <= a+step/2
s := s + x*x
x := x + step
кц
вывод "s = ", s
кон
16*8*40*64= 327680/8=40960/1024=40 Кб
ну или можно проще написать - 16*40*64=2^4*5*2^3*2^6=5*2^13 байт= 5*2^3=40 Кб
16. редактирование
16. вырезание
17. слово
18. строка
19. клавиатура
20. копирование
21. гипертекст
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.
