Var a,b,c:integer;
begin
writeln('введите число');
readln(a);
for b:=10 to 99 do
begin
if (b mod a = 0) or (b div 10 = a) or (b mod 10 = a) then writeln(b);
end;
<span>end.</span>
Вона віддала подрузі половину яблука?в ней залишилось 3.5, потім 3 яблука вона з*ла і в ней залишилось половинка яблука одного)
var
str, num: <em>string</em>;
begin
readln(str); <em>//str := 'Day 10, mice 8: "Year" 7 is a mistake 91.';</em>
foreach c: char in str do
if (Char.IsDigit(c)) then
num += c;
for j: byte := 1 to length(num) - 2 do
for i: byte := 1 to length(num) - 1 do
if (num[i] < num[i + 1]) then
begin
str[1] := num[i];
num[i] := num[i + 1];
num[i + 1] := str[1];
end;
if (Integer.Parse(num) > 0) then
begin
while (num[num.Length - 1] = '0') do
num.Remove(num.Length - 1);
writeln('Да' + #13 + num);
end
else
writeln('Нет');
end.
Формула нахождения объема закодированного звука
A = D * i * t * с (D - частота дискретизации, i - глубина бит/разрядность, t - время, c - кол-во каналов)
Тогда t = A / (D * i * с)
Приводим единицы измерения
D = 64 кГц = 64000 Гц
A = 4026531840 бит
t = A / (D * i * c) = 4026531840 / (64000 * 24 * 2) = 1310.72 секунд = 21.845333333333333 минут
Ответ 20
<em>// PascalABC.NET 3.2, сборка 1417 от 28.03.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
unit ASM;
interface
type SF=(integer,integer);
function AddSF(a,b:SF):SF;
function SubSF(a,b:SF):SF;
function MultSF(a,b:SF):SF;
function DivSF(a,b:SF):SF;
implementation
function Gcd(p:SF):integer;
begin
(var a,var b):=p;
a:=abs(a); b:=abs(b);
while b>0 do (a,b):=(b,a mod b);
Result:=a
end;
function ReductSF(p:SF):SF;
begin
var t:=Gcd(p);
if t>1 then Result:=(p[0] div t,p[1] div t)
else Result:=p
end;
function AddSF(a,b:SF):=ReductSF((a[0]*b[1]+a[1]*b[0],a[1]*b[1]));
function SubSF(a,b:SF):=ReductSF((a[0]*b[1]-a[1]*b[0],a[1]*b[1]));
function MultSF(a,b:SF):=ReductSF((a[0]*b[0],a[1]*b[1]));
function DivSF(a,b:SF):=ReductSF((a[0]*b[1],a[1]*b[0]));
end.
<u>***** Пример работы с модулем *****</u>
uses ASM;
begin
var a:=(5,24);
var b:=(7,8);
var c:=AddSF(a,b);
Writeln(a[0],'/',a[1],'+',b[0],'/',b[1],'=',c[0],'/',c[1])
end.
<u>Результат</u>
5/24+7/8=13/12