1Гбайт, 2084 Кбайт, 2Мбайт, 1 Мбайт, 1Кбайт, 81 бит, 7 байт, 1 байт, 1 бит
Вопрос 1 - 0
Вопрос 2 - 1
Вопрос 3 - 0
Вопрос 4 - 5
Вопрос 5 - 0
Вопрос 6 - 4
Вопрос 7 - 3
Вопрос 8 - 12
Вопрос 9 - 0 mod 5 , 7 mod 7 , 3 div 5.
Вопрос 10 - 1 mod 3 , 5 div 3 , 9 mod 4.
Чтобы с помощью фотошопа, измерять нужные виртуальные размеры, а потом уже, воплатить в жизнь.
Словарь если не поняла
Виртуальные- не реальные
Фотошоп- программа
Воплатить- сделать, создать
Поблагодари пож на страничке))
<h3>PascalABC.NET 3.4.2, сборка 1857 от 05.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
function Fib(n: integer): integer;
begin
if n < 3 then Result := 1
else
begin
var (a, b) := (1, 1);
for var i := 3 to n do
(a, b) := (a + b, a);
Result := a
end
end;
begin
for var i := 1 to 10 do Fib(i).Print; // контрольный пример
end.
<h2>1 1 2 3 5 8 13 21 34 55 </h2>