Перевести числа в 10ричную систему счисления. 101011(2 110110(2). 75(8).134(8). 765(8). 12031(4). 2643(8). 1вс(16). 22в(16). а35(16). 2fe1(16). в скобках система счисления. напишите нужно до завтра.
Писал на pascalabc.net, но постарался как можно ближе к turbo сделать. если не заработает - пишите, исправим: ) var f : text; i : integer; s, j: string; begin assign(f, 'in.txt'); reset(f); while not eof(f) do begin readln(f, s); for i : = 1 to length(s) do if ((s[i] = 'a') and ((length(s) < length(j)) or (j = '' then j : = s; end; writeln(j); end.
Nurislamovna1543
21.04.2022
Const n=20; var a: array[1..n] of integer; i,s: integer; begin writeln('исходный массив'); s: =0; randomize; for i: =1 to n do begin a[i]: =random(100)-50; if a[i] mod 2 < > 0 then s: =s+1; write(a[i]: 5) end; writeln; writeln('количество нечетных элементов равно ',s) end. тестовое решение: исходный массив -10 -26 -5 36 -48 41 -10 5 46 -1 -5 1 19 -11 -10 31 9 -31 -4 -40 количество нечетных элементов равно 11
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Перевести числа в 10ричную систему счисления. 101011(2 110110(2). 75(8).134(8). 765(8). 12031(4). 2643(8). 1вс(16). 22в(16). а35(16). 2fe1(16). в скобках система счисления. напишите нужно до завтра.