Александровна1742
?>

Как вставить новую строку после всех строк , в которых нет ни одного четного элемента? ( Pascal ABC Сам код: var i, j, k, n, h, p, g, m: integer; a, x: array [1..10, 1..10] of integer; begin writeln('Введите цифру, которой хотите заполнить строку '); readln(n); writeln('Введите размерность двумерного массива '); readln(m); k:=0; h:=0; g:=0; for i:=1 to m do for j:=1 to m do read(a[i, j]); for i:=1 to m do begin for j:=1 to m do begin if a[i, j] mod 2 = 0 then h:=h+1; end; if h <> 0 then k:= k + 1; h:=0; end; p:=0; h:=1; for i:=1 to m do begin for j:=1 to m do begin if a[i, j] mod 2 = 0 then begin x[h, j]:=a[i, j]; p:=p+1; end else begin x[h, j]:=a[i, j]; end; end; if p<>0 then begin h:=h+1; for g:=1 to m do x[h, g]:=n; h:=h+1; p:=0; end else h:=h+1; end; for i:=1 to (m+k) do begin for j:=1 to m do writeln(x[i, j]); end; end.

Информатика

Ответы

Орлова

В среде программирования QuickBASIC используется оконная технология организации диалога, рассчитанная на использование в качестве устройств ввода клавиатуры и специального манипулятора мышь. Маркер курсора клавиатуры или мыши позиционируется в одном из окон и нажимается клавиша <ENTER> или соответствующая кнопка мыши для выполнения выбранного действия связанного с этим окном.

Рассмотрим подробнее технологию организации диалога с использованием клавиатуры. Для выбора какого либо пункта меню необходимо нажать клавишу <ALT> фон слова File изменится и среда ожидает выбора конкретного раздела меню. Управляя курсором клавишами стрелки выбрать нужный раздел, после этого необходимо нажать клавишу <ENTER>. Под выбранным пунктом меню появится подменю. Управляя курсором клавишами < стрелки > выбрать нужный раздела подменю ,после этого необходимо нажать клавишу <ENTER>. В случае необходимости отмены исполнения выбранного пункта меню достаточно нажать клавишу <ESC>.

Головин662

1)    15 Кбайт

2)   7 или 6 (см. объяснения)

Объяснение:

1)

V = K * i, где

V - это информационный объём текстового сообщения (размер файла, содержащего сообщение)

K - количество символов в сообщении

i - информационный вес одного символа (число бит, используемых для записи одного символа)

Дано:

К = 16 страниц x 30 строк x 32 символа = 15 360 символов

i = 8 бит

Найти:

V

V = K * i = 15 360 * 8 = 122 880 бит

V = 122 880 бит = 122 880 / 8 = 15 360 байт = 15 360 / 1024 = 15 Кбайт

2)

Очень странная таблица (смотри картинку). Не совпадают цифры в расстояниях между CD-DC и CF-FC.

Построим граф по данным таблицы (смотри картинку).

Если мы возьмём значения CD-DC = 2 и CF-FC = 4 (чёрные цифры на картинке), то самым коротким путём будет ACEF = 4 + 2 + 1 = 7

Если мы возьмём значения CD-DC = 4 и CF-FC = 2 (красные цифры на картинке), то самым коротким путём будет ACF = 4 + 2 = 6


Статья, набранная на компьютере, содержит 16 страниц, на каждой странице 30 строк, в каждой строке 3
Статья, набранная на компьютере, содержит 16 страниц, на каждой странице 30 строк, в каждой строке 3

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

Как вставить новую строку после всех строк , в которых нет ни одного четного элемента? ( Pascal ABC Сам код: var i, j, k, n, h, p, g, m: integer; a, x: array [1..10, 1..10] of integer; begin writeln('Введите цифру, которой хотите заполнить строку '); readln(n); writeln('Введите размерность двумерного массива '); readln(m); k:=0; h:=0; g:=0; for i:=1 to m do for j:=1 to m do read(a[i, j]); for i:=1 to m do begin for j:=1 to m do begin if a[i, j] mod 2 = 0 then h:=h+1; end; if h <> 0 then k:= k + 1; h:=0; end; p:=0; h:=1; for i:=1 to m do begin for j:=1 to m do begin if a[i, j] mod 2 = 0 then begin x[h, j]:=a[i, j]; p:=p+1; end else begin x[h, j]:=a[i, j]; end; end; if p<>0 then begin h:=h+1; for g:=1 to m do x[h, g]:=n; h:=h+1; p:=0; end else h:=h+1; end; for i:=1 to (m+k) do begin for j:=1 to m do writeln(x[i, j]); end; end.
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

garikman-flesh486
struev2003260
agusarevich283
andreyduborezz2913
Dmitrievna Lvovich
Roman913
arutchevben64
bhg50
tanya14757702
info4632
sklad2445
natalyazx151092814
Анатолий
Шеина
ooost-2022