"Я к вам пишу – чего же боле? Что я могу ещё сказать? "52 символа52 символа * 16 бит = 832 бит
Ну алгоритм это последовательность действий=> решение..
Побуждение- метод защиты, основанный на соблюдении канонических, сложившихся в быту, <span>моральных и этических норм => 3 вариант ответа </span>
Задача 1
(I - информационный объем текста, K - кол-во символов, i - вес одного символа/бит на символ)
Дано:
K = 290 * 39 * 67 = 757770 шт
Пусть i = 8 бит (Кодировка ASCII)
I - ?
Решение:
I = K * i = 757770 * 8 бит = 6062160.0 бит
6062160.0 бит = 757770.0 байт = 740.009765625 Кбайт = 0.7226657867431641 Мбайт < 1.44 Мбайт значит можно
Ответ да
(I - информационный объем текста, K - кол-во символов, i - вес одного символа/бит на символ)
Дано:
K = 256 * 95 * 80 = 1945600 шт
Пусть i = 8 бит (Кодировка ASCII)
I - ?
Решение:
I = K * i = 1945600 * 8 бит = 15564800.0 бит
15564800.0 бит = 1945600.0 байт = 1900.0 Кбайт = 1.85546875 Мбайт = 0.001811981201171875 Гбайт
2 - 0.001811981201171875 = 1.998188019 Гбайт
===== PacalABC.NET =====
begin
var L := ReadReal('Укажи расстояние до танка:');
Writeln('Программа завершается при попадании в танк');
Writeln('или при вводе числа, не попадающего в диапазон от 0 до 90');
var (g, v0, eps) := (9.81, 100.0, 1.0);
while True do
begin
var a := ReadReal('Введи угол наклона пушки, град:');
if not a.InRange(0.0, 90.0) then Exit;
var d := L - Sqr(v0) * Sin(2 * DegToRad(a)) / g;
if Abs(d) <= eps then
begin
Println('Ура! Попадание!');
Exit
end
else if d > 0 then
Println('Недолет')
else
Println('Перелет')
end
end.
