Program Z1;
Var n,i,s: real;
Begin
write ('n=');
read (n);
S:=0;
i:=3;
while i<=n do
Begin
i:=i+4;
S:=S+i;
End;
write ('S=',S);
End.
<span>56 KB56000 Байт<span>57344 Байт</span></span>
<em>// PascalABC.NET 3.3, сборка 1599 от 17.12.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var s:=ReadlnString(' >');
Write('-> ');
var n:=s.Length;
if n<4 then Writeln(s)
else
while true do begin
var p:=n mod 3; p:=p=0?3:p;
Write(s[:p+1],',');
s:=s[p+1:];
n:=s.Length;
if n=3 then begin Writeln(s); Exit end
end
end.
<u>Примеры</u>
> 1231423454123112313211
-> 1,231,423,454,123,112,313,211
> 123456
-> 123,456
> 13
-> 13
Перевод из двоичной системы в десятичную идёт по следующей схеме:
2ⁿ⁻¹ * S + ... + 2¹ * S + 2⁰ * S, где S - соответствующая числу двоичной системы цифра, а n - количество символов в числе.
Например:
100101
(2⁵ * 1) + (2⁴ * 0) + (2³ * 0) + (2² * 1) + (2¹ * 0) + (2⁰ * 1) = 2⁵ + 2² + 2⁰ = 2⁷ + 1 =
= 129