<em>Формула некорректна, поскольку при i=1 и k=1 знаменатель дроби обращается в ноль. Программа будет всегда возвращать "бесконечность".</em>
var
i,k,m,n,ik:integer;
si,sk,facti,factk:double;
begin
Write('Введите через пробел значения m и n: ');
Read(m,n);
sk:=0; factk:=1;
for k:=1 to m do
begin
si:=0; facti:=1; ik:=1; factk:=factk*k;
for i:=1 to n do
begin
ik:=-ik; facti:=facti*i;
si:=si+factk/(ik+facti)
end;
sk:=sk+si
end;
Writeln('Результат: ',sk)
end.
Во-первых программа вообще не запуститься, по той причине что паскаль не знает слова car, во второй строчке нужно исправить на var. , вторая ошибка, паскаль вам скажет что S он не знает! а по логике ответом будет s=6
Блок схема ниже!!
По программе получается что программа находит наибольшее значение на заданном интервале
Var
<span>
R1, R2, R3, S1, S2, S3: Integer;</span><span>
begin</span><span>
writeln('Введите размеры
рации и чемодана');</span><span>
readln(R1, R2, R3, S1, S2, S3);</span><span>
if ((R1 < S1) and (R2 < S2)
and (R3 < S3)) or</span><span>
((R3 < S3) and (R2 < S1) and
(R1 < S2)) or</span><span>
((R1 < S1) and (R2 < S3) and
(R3 < S3)) or</span><span>
((R2 < S2) and (R1 < S3) and
(R3 < S1)) or</span><span>
((R2 < S1) and (R3 < S2) and
(R1 < S3)) or</span><span>
((R1 < S2) and (R3 < S1) and
(R2 < S3)) then</span>
<span>WriteLn('ПОМЕЩАЕТСЯ')</span><span>
else</span>
<span>WriteLn('НЕ ПОМЕЩАЕТСЯ');</span>
<span>end.</span>
Если это (2) значит в степени, то
100011:111=901
901*901=811801
Посмотрим, что нам дает сложение младших разрядов. 4+4=1. Ясно, что произошел перенос +1 в старший разряд, а тут осталась разность от числа 8 (которое 4+4) и основания системы счисления n.
Тогда n+1=8 или n=7.
Ответ: система счисления семиричная.