<h3>PascalABC.NET 3.4.2, сборка 1859 от 08.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var (s, ss, k) := (ReadInteger('s='), 0, 3);
while ss <= s do
begin
ss += k;
k+=2
end;
ss.Println
end.
512 пикс * 256 пикс * = 131072 пикс / 8 / 1024 = 16 кибипикс.
64 кбайт / 16 кбайт = 4 бит на цвет.
2^4 = 16 цветов поместятся.
Var
i,f, f0, f1: integer;
begin
f0 := 0;f1 := 1;
write(f0:4, f1:4);
for i := 1 to 8 do
begin
f := f1 + f0;
write(f:4);
f0 := f1;
f1 := f;
end;
end.
Тестовое решение:
0 1 1 2 3 5 8 13 21 34
Файл размером 100 Кбайт передаётся через некоторое соединение со скоростью 1536 бит в секунду. Определите размер файла (в Кбайт), который можно передать за то же время через другое соединение со скоростью 768 бит в секунду. В ответе укажите одно число – размер файла в Кбайт. Единицы измерения писать не нужно.1. 100*1024*8=819200 бит. 2. t=819200бит/1536бит/сек=533сек.3. 533сек*768бит/сек=409344бит.4. 409344/8=51168байт.5. 51168байт/1024=50Кбайт. Я советую тебе проверить, правильно ли ты написал (а) числа, ибо ответ не целый много, где получается. <span>Так как время одинаковое, легче решать пропорцией.
100 Кбайт / 1536 бит в секунду = х Кбайт / 768 бит в секунду
х Кбайт = 100 Кбайт * 768 бит в секунду / 1536 бит в секунду = 100 К байт / 2 = 50 Кбайт</span>
Объяснение:
Можно через блокнот, Word...