1 файл - случай б.
2 файл - случай а.
простые сложные состав количество посылок характер логического следования
Var a : integer;
begin
repeat
a:=a+100;
writeln(a*0.3, ' руб за ', a, ' гр')
until a = 1000
end.
280 000байт *8= 2240000бит
2240000бит/56000бит/с=40с
// PascalABC.NET 3.2, сборка 1437 от 03.05.2017
// Внимание! Если программа не работает, обновите версию!
function Dec2Bin(x:string):string;
begin
var s:=x.MatchValue('\d+');
if s.Length=0 then begin
Writeln('Не найдено НИ ОДНОЙ цифры!');
Result:=''
end
else begin
var t:=s.ToInteger;
var r:string:='';
while t>=2 do (r,t):=(t mod 2+r,t shr 1);
Result:=t+r
end
end;
begin
Writeln(Dec2Bin(ReadlnString('n=')))
end.