<em>// PascalABC.NET 3.3, сборка 1599 от 17.12.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var s:=ReadlnString(' >');
Write('-> ');
var n:=s.Length;
if n<4 then Writeln(s)
else
while true do begin
var p:=n mod 3; p:=p=0?3:p;
Write(s[:p+1],',');
s:=s[p+1:];
n:=s.Length;
if n=3 then begin Writeln(s); Exit end
end
end.
<u>Примеры</u>
> 1231423454123112313211
-> 1,231,423,454,123,112,313,211
> 123456
-> 123,456
> 13
-> 13
Var a:array[1..15] of integer;
i,b: integer;
begin
b:=1;
for i:=1 to 15 do readln(a[i]);
for i:=1 to 15 do if a[i] mod 2 =0 then b:=b*a[i];
writeln(b);
end.
Моно (1) * кодирование (16) * частота дискретезации (32 * 1000(гц)) * t(сек) = 625 * 2^13 бит
t=(625*2^13)/(1000*2^5*2^4)
t = 10 сек
Вроде так, если нигде не ошибся. Когда без калькулятора считаешь работай со степенями 2; и 1000 можно представлять как 2^10 = (1024), если есть варианты ответа, погрешность не большая
2^x*2^y=2^(x+y)
2^x/2^y=2^(x-y)
<span>months = (jan, feb, mar, apr, may, jun, jul, aug, sep, oct, nov, dec);
years = 1900..2100;
people = array[years] of longint;
var
growth: array[months] of real;
hum: people;
notes: array[1..n] of string;</span>
Всё на скриншотах подробно расписано