сор по информатике Ученик нарисовал изображения цветов. Данные изображения хранятся в оперативной памяти. Изображение одного цветка требует 5 Кб памяти. Размер каждой ячейки ОЗУ равен 5 КБ.Определите, какой объём памяти оперативно-запоминающего устройства остался свободным.КБ=байт= бит2. Тимур создал реферат весом 4200 байт в текстовом документе в формате .docx и должен передать файл учителю.a. Определите устройство памяти, которое можно использовать для передачи файла.b. Объясните свой выбор.3. Объём свободной памяти устройства составляет 4КБ. Реферат занимает в формате .*docx = 4800 байт, в формате .*pdf=3500 байт.Определите и объясните, какой документ поместится на данное устройство.Решение Объяснение 4. Прочитайте характеристики двух компьютерных сетей.Впишите наименование сети в фигуру.Поставьте в пустые кружочки знак «+», там, где считаете, что описаны преимущества сети и «-», где описаны недостатки сети.5. У Диаса на компьютере установлена антивирусная программа.а) Напишите название антивирусной программы. b) Объясните в каком случае файл, зараженный вирусом, останется на компьютере. Поясните свои ответ.с) Опишите возможности антивирусных программ.
Ответы
//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
//Вариант по формуле Бине
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
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
В программу вводятся два числа А и В с айдите их сумму, разность и произведение.
Автор: tvmigunova551
Чему равна сумма чисел 110(2) и 110(16) (с обьяснением )
Автор: Михайлович_гергиевич315
Інформатика 6 Бондаренко, розв'язання задач за до вкладених циклів
Автор: clic1968420
Потрібно написати програму, яка розв'язує це рівняння
Автор: Arzieva Abdulmanov1438
Сколько единиц в двоичной записи числа 8^2341 – 4^342 + 2^620 – 81?
Автор: Nikolaevich-Svetlana388
Скажите а удалится только с телефона, или вообще аккаунт?
Автор: M10M11M12
//Вариант по формуле Бине
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