если всё прибавить надо то 9+8+7+10+6+8+6=54
<u>PascalABC.NET 3.4.0, сборка 1672 от 10.06.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
<em>Цикл for</em>
begin
var p:=1.0;
for var i:=1 to 100 do p*=(1+Sin(i/10));
Writeln(p)
end.
<em>Результат</em>
<u>1.72984094681</u>772<u>E-14</u>
<em>Цикл repeat</em>
begin
var (p,i):=(1.0,0.1);
repeat
p*=(1+Sin(i));
i+=0.1
until i>10;
Writeln(p)
end.
<em>Результат</em>
<u>1.72984094681</u>773<u>E-14</u>
Контрольное решение с точностью 20 цифр приведено во вложении. В соответствии с ним верные цифры в результатах <u>подчеркнуты</u>.
При делении нацело просто отбрасывается дробная часть в ответе, не надо мудрить ничего)
Например: 15 / 10 = 1.5 (в математике), тогда 15 \ 10 = 1 (просто отбросили дробную часть).
Ещё примеры: 23.6 \ 7 = 3 (23.6 / 7 = 3.3714...), 14 \ 2 = 7 (14 / 2 = 7.0), 25.68 \ 7 = 3 (25.68 / 7 = 3.6685...).
Вывод: в примере 14 \ 2 = 2 просто допущена ошибка :)
var a:array[1..10] of integer;
i,temp,j:integer;
begin
for i:=1 to 10 do begin
a[i]:=random (26);
write (a[i]:3);
end;
writeln;
for i:=1 to 10 do begin
for j:=1 to 10 do
if a[i]<a[j] then
begin
temp:=a[i];
a[i]:=a[j];
a[j]:=temp;
end;
end;
for i:=1 to 10 do
write(a[i]:3);
end.
1*2^5+1*2^4+0*2^3+1*2^2+0*2^1+1*2^0=32+16+4+1=53
(2^5- два в степени 5, 2^4-два в степени 4 и т.д )