Информатика, опубликовано 17.03.2019 14:30
1)за какое время в секундах будет передан файл размером 250 кбайт по каналу связи 512000 бит/сек? 2)найдите информационный объем графического файла, в котором находится черно-белое изображение размером 128 на 128 точек. ответ
выразите в кбайтах. в ответе напишите только число.
Ответ оставил: Гость
Чтобы заработал этот код надо добавить первой строкой:
function G(n:integer):integer;forward;
Так как в функции F присутствует вызов функции G, которая описана далее в программе.
function G(n: integer): integer; forward;
function F(n: integer): integer;
begin
if n > 2 then
F := F(n - 1) + G(n - 2)
else
F := 1;
end;
function G(n: integer): integer;
begin
if n > 2 then
G := G(n - 1) + F(n - 2)
else
G := 1;
end;
begin
writeln(F(7));
end.
Ответ: 13
function G(n:integer):integer;forward;
Так как в функции F присутствует вызов функции G, которая описана далее в программе.
function G(n: integer): integer; forward;
function F(n: integer): integer;
begin
if n > 2 then
F := F(n - 1) + G(n - 2)
else
F := 1;
end;
function G(n: integer): integer;
begin
if n > 2 then
G := G(n - 1) + F(n - 2)
else
G := 1;
end;
begin
writeln(F(7));
end.
Ответ: 13
Информатика, опубликовано 09.01.2019 16:01
Информатика, опубликовано 09.01.2019 16:01
Информатика, опубликовано 09.01.2019 16:01
Информатика, опубликовано 09.01.2019 16:01