Язык : PascalABC. NET
program number1;
const
L =31;
var
a : array[1..L] of shortint;
k : shortint;
begin
randomize;
for i : byte := 1 to L do
a[i] := random(-10, 10);
k :=0;
for i : byte := 10 to 20 do
k := k + a[i];
writeln(k);
end.
Скорее всего, 1 бит.
Если достали красный - да, 1
Достали другой цвет - нет, 0
<span>Если понравилось решение - нажимай "спасибо" и "лучший" (рядом с кнопкой "спасибо") :)</span>
Размер цифрового моноаудиофайла измеряется по формуле:
A = D*T*i,
где D – частота дискретизации (Гц), T – время звучания или записи звука, i - разрядность регистра (разрешение или глубина кодирования звука).
16 кГц = 16*1000 Гц = 16000 Гц
300 Кбайт = 300*1024 байт
Время звучания = 300*1024 / (16000*1) = 19,2 с
Объяснение:
var s,n,d,e:integer;
m: string;
begin
writeln('Курс доллара?');
readln(d);
writeln('Курс евро?');
readln(e);
writeln ('Сколько рублей у посетителя?');
readln(n);
writeln ('доллар или евро?');
readln(m);
if m='доллар' then s:=n div d;
if m='евро' then s:=n div e
else writeln('Такой валюты нет');
writeln(s);
end.