Pascal abc: дана последовательность чисел, среди которых имеется несколько нулей. вывести на печать (построчно) числа стоящие до 1-го нуля и числа стоящие между нулями. пример: входные данные 10 1 0 1 2 3 0 15 4 0 7 выходные данные 1 1 2 3 15 4

247

405

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

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

Jkbts

Информатика

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

Const n = 50; {максимальное количество чисел в последовательности} t = -77; {число-ограничитель, означающее конец ввода} type ta = array[1..n] of integer; var a: ta; {массив членов последовательности} az: ta; {массив, содержащий номера нулей в последовательности} kz: integer; {количество членов в массиве az} i, iz, p, n1, n2: integer; flag: boolean; begin {вводим числа и сразу же отслеживаем номера нулей в последовательности} writeln('вводите последовательность чисел, окончание ввода по -77'); i : = 0; iz : = 0; repeat read(p); if p < > t then begin i : = i + 1; a[i] : = p; if p = 0 then begin iz : = iz + 1; az[iz] : = i; end end until p = t; kz : = iz; writeln('вывод последовательностей'); {1. до первого встреченного нуля} for i : = 1 to az[1] - 1 do write(a[i], ' '); writeln; {2. остальные промежутки} for iz : = 1 to kz do begin for i : = az[iz] + 1 to az[iz + 1] - 1 do write(a[i], ' '); writeln; end end. тестовое решение: вводите последовательность чисел, окончание ввода по -77 1 2 3 0 5 6 7 0 0 10 11 12 13 0 15 16 17 18 19 20 -77 вывод последовательностей 1 2 3 5 6 7 10 11 12 13

5Костя5

Информатика

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

1. в аналогичном принципе записи и чтения. 2. на них можно записывать какую-либо информацию, то есть оба являются носителями информации. 3 и если диски, например cd-rw и dvd-rw, то информацию на них можно неоднократно перезаписывать. а 1. ёмкость dvd диска превосходит по объёму ёмкость cd диска. 2. плюс их разница в формате.