Построить блок-схему для программы в pascal: var f,g: text; s,s1: string; p: integer; begin assign(f, - id268315720220328 от чтлза 28.03.2022 18:33

Question

Информатика: Построить блок-схему для программы в pascal: var f,g: text; s,s1: string; p: integer; begin assign(f, names.txt ); assign(g, out.txt ); reset(f); rewrite(g); while not eof(f) do beginreadln(f,s); while s do begin p : = pos( , ,s); if p 0 then begin s1 : = copy(s,1,p-1); s : = copy(s,p+1,length(s)) endelse begin s1 : = s; s : = end; p : = pos( ,s1); if p 0 then write(g,copy(s1,p+1,length( ,copy(s1,1,p-1)); if (s )and(s[1]= ) then delete(s,1,1); if s then write(g, , ); end; writeln(g); end; close(f);

чтлза · Accepted Answer

(№ 1328) 1(№ 1327) -45Объяснение:(№ 1328) 1010101_2 - 201_8 + 2D_161010101_2 = 1 * 2^6 + 0 * 2^5 + 1 * 2^4 + 0 * 2^3 + 1 * 2^2 + 0 * 2^2 + 1 * 2^0 = 64 + 0 + 16 + 0 + 4 + 0 + 1 = 85_10201_8 = 2 * 8^2 + 0 * 8^1 + 1 * 8^0 = 128 + 0 + 1 = 129_102D_16 = 2 * 16^1 + 13 * 16^0 =32 + 13 = 45_1085 - 129 + 45 = 1(№ 1327) 1001101_2 - 261_8 + 37_161001101_2 = 1 * 2^6 + 0 * 2^5 + 0 * 2^4 + 1 * 2^3 + 1 * 2^2 + 0 * 2^2 + 1 * 2^0 = 64 + 0 + 0 + 8 + 4 + 0 + 1 = 77_10261_8 = 2 * 8^2 + 6 * 8^1 + 1 * 8^0 = 128 + 48...

MOGZ ответил