Код (Pascal)
var
c: array[1..15] of integer;
i, k: integer;
pr: longint;
begin
for i:=1 to 15 do
read(c[i]);
pr:=1;
k:=0;
for i:=1 to 15 do
if c[i]=30 then
begin
pr:=pr*3;
k:=k+1;
end;
if k=0 then pr:=0;
write(pr);
for i := 1 to k do write(0);
writeln(' ', k);
end.
324:
324-256=68
68-64=4
324=256+64+4=2⁸+2⁶+2²=101000100₂
101 000 100₂ = 504₈ (каждые 3 цифры переводим в одну восьмеричную цифру)
504₈=5*8²+0*8+4=320+4=324₁₀
324:16=20 и остаток 4
20:16=1 и остаток 4
1:16=0 и остаток 1
324₁₀=144₁₆
144₁₆=101000100₂
101000100₂=1*2⁸+1*2⁶+1*2²=256+64+4=324
Begin
Writeln('23+45*11-15 = ', 23+45*11-15);
Writeln('(37+2*27)/41 = ',(37+2*27)/41);
Writeln('((5638-2347)/49)+((123*756)/4455) = ',((5638-2347)/49)+((123*756)/4455));
end.
<u>Результат:</u>
23+45*11-15 = 503
(37+2*27)/41 = 2.21951219512195
((5638-2347)/49)+((123*756)/4455) = 88.0359925788497
<span>//PascalABC.NET
//Версия 3.3, сборка 1611 (06.01.2018)
</span>
begin
var (a,b):=ReadInteger2('Введите a,b,c,d->');
var (c,d):=ReadInteger2;
Write('Корни: ');
for var x:=0 to 1000 do
if a*x**3+b*x**2+c*x+d=0 then Write(x,' ');
end.
Пример:
Введите a,b,c,d-> 1 -3 -13 15
Корни: 1 5