Вести с клав. 2 строки. в какой строке выполняется условие(в какой строке кол-во открывающихся равно закрывающихся.) '['-открыващие ']'-закрывающие паскаль

103

126

Посмотреть ответы 2

Ответы на вопрос:

sugarflower

Информатика

4,7(6 оценок)

Var s: string; n,k,i: integer; begin for n: =1 to 2 do begin writeln('введите строку ',n,': '); readln(s); k: =0; for i: =1 to length(s) do begin case s[i] of '[': k: =k+1; ']': k: =k-1; end; end; if k=0 then writeln('в строке ',s,' количество [ и ] одинаково') else writeln('в строке ',s,' количество [ и ] не одинаково'); end; end. пример: введите строку 1: c: =a[imax,j]; a[imax,j]: =a[imin,j]; a[imin,j]: =c в строке c: =a[imax,j]; a[imax,j]: =a[imin,j]; a[imin,j]: =c количество [ и ] одинаково введите строку 2: просто [ пример ]] со [[ скобками в строке просто [ пример ]] со [[ скобками количество [ и ] не одинаково

slavaapakinp00lrn

Информатика

4,7(4 оценок)

Объем dvd m = 4.7*1024*1024 кб = 4 928 307.2 кбайт всего фото на диске n = m / 500кбайт = 4 928 307.2 кбайт / 500кбайт = 9 856.6144 ~ 9 856 (округлили до целых) время просмотра t = n * 5c = 49 280 c = 13.6(8) часов