Var A:integer;
Begin
Write('A = ');Read(A);
if A>50 then A:=(A div 10)+(A mod 10)
else A:=(A div 10)*(A mod 10);
Write(A);
End.
Текст, число, формула. А 2 я не знаю.
Размер цифрового моноаудиофайла измеряется по формуле:
A = D*T*i,
где D – частота дискретизации (Гц), T – время звучания или записи звука, i - разрядность регистра (разрешение).
24 кГц = 24000 Гц; 32 кГц = 32000 Гц
30 Мбайт = 30*1024 Кбайт = 30*1024*1024 байт = 30*1024*1024*8 бит
T = 30*1024*1024*8 / (2*24000*16)
A2 = 4*32000*16*30*1024*1024*8/(2*24000*16) = 4*32*30*1024*1024*8 / (2*24) =
= 80*1024*1024*8 бит = 80 Мбайт
a) 120
Б)373
Механизм решения данных заданий -
Расставить степени начиная с нулевой с права на лево
в вашем случае 0^7 1^6 1^5 1^4 1^3 0^2 0^1 0^0
записать вместо единиц двойки с их степенями
2⁶ + 2⁵ + 2⁴ + 2³
Считаем, складываем и получаем 120. Так переводятся числа из 2 в 10 систему счисления.
program Digits;
procedure foo(a: integer);
begin
if a = 0 then exit
else
foo(a div 10);
Print(a mod 10)
end;
var
a: integer;
begin
a := 12345;
foo(a)
end.