Var r: integer;l: real;BeginWriteln('Введите радиус');Read(r);l:=2*3.14*r;Writeln('Длина окружности - ', l);End.
Пусть объем гигабайт, который вирусы заполнят за один месяц, работая вместе, равен X. За месяц вирусы A, B, C, D смогут заполнить
гигабайт соответственно (надеюсь, понятно почему). Следовательно, имеем простое уравнение:
Ответ: 2 гигабайта
Ну если я правильно понял то что тут написано то вот на pascal'e.. )
Var n,a,b,c:byte;
begin readln(n);
a:=n mod 10;
n:=n div 10;
b:=n mod 10;
n:=n div 10;
c:=n mod 10;
if (a=b) or (a=c) or(b=c) then writeln('да') else writeln('нет');
<span>end.</span>
Ответ A . Этот алгоритм увеличивает число на 1 . Это видно на фото.
№ 1. Размер файла в байтах в этой задаче равен 2 умножить на частоту дискретизации умножить на <span>время звучания умножить</span> на разрядность регистра (разрешение), все это разделить на 8.
Или формулой: A=2*D*T*I<span>/8.
Переведем размер из килобайт в байты: 3400 Кбайт = 3400*1024 байта = 3481600 байт.
Из формулы выразим время: T = (8*А) / (2*D*I) = (8*3481600) / (2*64000*16) = 13,6 (секунд).
№ 2. Сначала рассчитаем информационный вес одного кадра фильма.
256 цветов можно закодировать с помощью 8 бит (2 в восьмой степени равно 256).
600*400*8 = 1920000 (бит) = 1920000 / 8 (байт) = 240000 (байт) - </span><span>информационный вес одного кадра фильма
Всего 36 кадров в секунду: 240000 * 36 = 8640000 (байт) - за 1 секунду
3 минуты = 3 * 60 </span>секунд = 180 секунд
180*8640000 = 1555200000 (байт) = 1555200000 / 1024 (Кбайт) = 1518750 (Кбайт) приближенно равно 1483 Мбайт .
№ 3. Аналогичен номеру 1. Только тут монодорожка, значит
A=D*T*I<span>/8 (без двойки впереди).
</span>D = (A*8) / (T*I) = ((1500*1024)*8) / (50*8) = 30720