Const n = 4; m = 4; var a: array [,] of integer : = (( 1, 2, 3, 4), ( 5, 6, 7, 8), ( 9, 10, 11, 12), (13, 14, 15, 16)); i, j, s: integer; begin writeln('исходная матрица'); for i : = 0 to n-1 do begin for j : = 0 to m-1 do write(a[i,j]: 3); writeln; end; for i : = 0 to (m - 1) div 2 do begin s : = 0; for j : = 0 to n - 1 do s : = s + a[j, i*2]; writeln ('сумма в столбце ', i*2: 3, ' = ', s); end; end.
chysvv
31.01.2020
Var rus: set of 'а'..'я'; lat: set of 'a'..'z'; nlat, nrus, i: integer; s: string; begin write('введите текст: '); readln(s); nrus : = 0; nlat : = 0; rus : = ['а'..'я']; lat : = ['a'..'z']; for i : = 1 to length(s) do if (s[i] in rus) then nrus : = nrus + 1 else if (s[i] in lat) then nlat : = nlat + 1; if nrus > nlat then writeln(' букв больше, чем латинских') else if nrus = nlat then writeln(' и латинских букв поровну') else writeln('латинских букв больше, чем ') end. тестовое решение: введите текст: такая vot straнная зада4а nam попалac6 ! букв больше, чем латинских
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Значение арифметического выражения 49^9+7^27-7 записали в системе счисления с основанием 7 сколько цифр 6 содержится в этой записи