Ужени было 111011 в двоичной яблок. он отдал 11100 в двоичной яблок василию и сам съел 110 в двоичной - id858187320230328 от тигрица086 28.03.2023 11:13

Question

Информатика: Ужени было 111011 в двоичной яблок. он отдал 11100 в двоичной яблок василию и сам съел 110 в двоичной яблок . сколько осталось яблок у жени? подробное решение

тигрица086 · Accepted Answer

//Pascal ABC.NET 3.2 сборка 1318 Var   f:text;   n:integer;   s:string;     procedure VoTeRaz(f:text;n:integer;s:string);   begin     writeln( Было: ); assign(f, Input.txt ); reset(f); while not(Eof(f)) do   begin     read(f,n);     write(n, );     if n 7 then n:=n*(n div 7);     s:=s+inttostr(n)+ ;   end; delete(s,length(s),1); close(f); assign(f, Input.txt ); rewrite(f); write(f,s); close(f); writeln; writeln( Стало: ); write(s); writeln; end; function VoTeDva(f:text;n:integer;s:string):integer;...

Ужени было 111011 в двоичной яблок. он отдал 11100 в двоичной яблок василию и сам съел 110 в двоичной яблок . сколько осталось яблок у жени? подробное решение

MOGZ ответил