1000=125*2^3; 16 =2^4; 8=2³; 1,5мин =1,5*60 =90 с=2*45с
8 КГц =8 *1000 Гц
--------------------------------------------------------------------------------
F = 8*1000*16*1,5*60 = 2^3 *2^3 *125 *2^4 *2 *45 =
= 125*45 *2^11 бит = 125*45*2^8 байт =125*45 / 2² Кбайт =
= 5625/4 = 1406, 25 Кбайт ≈1407 Кбайт
Function ProdDig(n:longint):longint;
var
p:longint;
begin
p:=1;
while n>0 do begin
p:=p*(n mod 10);
n:=n div 10
end;
ProdDig:=p
end;
var
f:Text;
a,b,c:longint;
begin
Assign(f,'abc.txt');
Reset(f);
Readln(f,a,b,c);
Close(f);
Assign(f,'abcout.txt');
Rewrite(f);
Writeln(f,ProdDig(a+b+c));
Close(f)
end.
<em><u>Вариант без использования функции:</u></em>
var
f:Text;
a,b,c,p,s:longint;
begin
Assign(f,'abc.txt');
Reset(f);
Readln(f,a,b,c);
Close(f);
s:=a+b+c; p:=1;
while s>0 do begin
p:=p*(s mod 10);
s:=s div 10
end;
Assign(f,'abcout.txt');
Rewrite(f);
Writeln(f,p);
Close(f)
end.
Ответ:
сместиться на (12, - 16)
Объяснение:
Сложим координаты по х и у (отдельно)
х = - 1 + 2 + 2 = 3
у = - 5 + (- 2) + 3 = - 5 - 2 + 3 = - 4
Умножим на количество повторений
х = 3 * 4 = 12
у = - 4 * 4 = - 16
После выполнения алгоритма
повтори 4 раз
сместиться на (-1, -5)
сместиться на (2, -2)
сместиться на (2,3)
конец
Чертёжник сместился на (12, - 16)
Значит весь алгоритм можно заменить на команду сместиться на (12, - 16)
Кнопка, окно, меню, строка состояния, вкладка, ползунок, поле для редактирования
Var a,s,k:integer;beginwrite('введите число: ');readln(a);while a<>0 do begink:=a mod 10;s:=s+k;a:=a div 10;end;writeln('сумма цифр равна ',s);end.