program raf105;
var
i,n: integer;
s: real;
begin
write('Введите N: ');
readln(n);
repeat
i:= i+1;
s:= s + 1/i;
until i = n;
writeln('S = ',s);
end.
<h3><u>PascalABC 3.4.2</u></h3>
1) 259₁₀ ⇒ 100000011₂
2) 12221
3) 600 Кбайт
4) 4 цепочкм
5) http://doc.com/ciao.doc ⇔ 4 - 5 - 1 - 7 - 6 - 3 - 2
Program algorithm;
Var i, S: integer;
Begin
S:=1;
For i:=1 to 100 do
Begin
S := S*i;
End;
Writeln(S);
End.
Для наглядности, чтобы пользователи могли легко ознакомиться с информацией
17.
<span>c. =H7+сумм(B8:C9)</span>
19.
<span>e.
101010</span>
20.
<span>b. 0000 0000 0110 0100</span><span>
</span>