Объяснение:
Ошибки в программе:
Program primer - не хватает точки с запятой
Var a,b: integer;
Begin ; - не ошибка, необязательная точка с запятой
ReadLn( a,b); - не ошибка, лишний пробел после скобки, здесь и дальше не хватает пробелов между аргументами функций, знаками
s=a+b; - не хватает двоеточия в :=
m:=a*b;
d:=a:b; - переменная d не была описана; деление - это /
WriteLn(s);
WriteLn(m);
WriteLn(d)
End - не хватает точки.
Исправленная программа:
Program primer;
Var a, b: integer;
d: real;
Begin
ReadLn(a, b);
s := a + b;
m := a * b;
d := a / b;
WriteLn(s);
WriteLn(m);
WriteLn(d)
End.
59 Мбайт
Объяснение:
V = t * f * i * k, где
V - информационный объём аудио файла (размер файла, содержащего запись звука)
t - общая длительность звучания (секунды)
f - частота дискретизации (Гц, количество значений амплитуды звука, фиксируемых за одну секунду)
i - глубина звука (разрешение) (число бит, используемых для хранения каждого измеренного значения)
k - количество каналов записи (1 - моно, 2 - стерео и т.д.)
Дано:
k = 4
f = 32 кГц = 32 000 Гц
i = 32 бит
t = 2 минуты = 120 секунд
Найти:
V (Мбайт)
V = t * f * i * k
V = 120 * 32 000 * 32 * 4 = 491 520 000 бит
V = 491 520 000 бит = 491 520 000 / 8 = 61 440 000 байт = 61 440 000 / 1024 = 60 000 Кбайт = 60 000 / 1024 = 58,59375 Мбайт ≈ 59 Мбайт
Цифры бывают разные: самыми распространёнными являются арабские цифры, представляемые знаками от нуля (0) до девяти (9); менее распространены римские цифры, их можно встретить на циферблате часов или в обозначении века (XIX век).
Поскольку чисел гораздо больше чем цифр, то для записи числа обычно используется набор (комбинация) цифр. Только для небольшого количества чисел — для самых малых по величине целых чисел — бывает достаточно одной цифры. Существует много записи чисел с цифр, называемых системой счисления. Величина числа может зависеть от порядка цифр в записи, а может и не зависеть. Это свойство определяется системой счисления и служит основанием для простейшей классификации таких систем, что позволяет все системы счисления разделить на четыре класса (группы):
Объяснение:
Program KennyLans;
var a, b, c, d, min: real;
begin
write('Введите 4 числа для сравнения (через пробел): ');
read (a, b, c, d);
min := a;
if b < min then min := b;
if c < min then min := c;
if d < min then min := d;
writeln('Минимальное число: ', min);
readln;
end.