Переменная — это именованная область памяти для хранения данных, которые могут изменяться в процессе исполнения программы.Переменная характеризуется:Именем («обозначением ячейки памяти»)Значением (данными, содержащимися в переменной в конкретный момент времени)Типом (определяющим: а) какие значения может принимать переменная; б) какие операции можно производить с этими значениями; в) как данные представлены в памяти компьютера)Имена и типы переменных указываются в разделе описаний и не могут изменяться в процессе выполнения программы.
Var i,i_beg,i_end,k:longint; p:set of longint; begin Writeln('Вводите целые числа большие двух, конец ввода по числу 0'); i_beg:=1000000; i_end:=0; repeat Read(k); if k<>0 then begin if i_beg>k then i_beg:=k else if i_end<k then i_end:=k; Include(p,k) end until k=0; Writeln('Числа, не входящие в последовательность:'); for i:=i_beg to i_end do if not (i in p) then Write(i,' ') end.
Тестовое решение: Вводите целые числа большие двух, конец ввода по числу 0 6 12 9 14 10 19 17 11 7 0 Числа, не входящие в последовательность: 8 13 15 16 18
i,i_beg,i_end,k:longint;
p:set of longint;
begin
Writeln('Вводите целые числа большие двух, конец ввода по числу 0');
i_beg:=1000000; i_end:=0;
repeat
Read(k);
if k<>0 then
begin
if i_beg>k then i_beg:=k
else if i_end<k then i_end:=k;
Include(p,k)
end
until k=0;
Writeln('Числа, не входящие в последовательность:');
for i:=i_beg to i_end do
if not (i in p) then Write(i,' ')
end.
Тестовое решение:
Вводите целые числа большие двух, конец ввода по числу 0
6 12 9 14 10 19 17 11 7 0
Числа, не входящие в последовательность:
8 13 15 16 18