Вопрос по информатике:
Вводить последовательность чисел до тех пор пока не введено ноль
- 21.11.2016 07:47
- Информатика
- remove_red_eye 8769
- thumb_up 18
Ответы и объяснения 2
//Сделал Лугачев Кирилл
//Специально для znanija.com/task/18291836
program NULL;
var
start: integer;
begin
write('Вводите числа, 0 означает выход: ');
Read(start);
while not(start = 0) do
begin
Readln(start);
end;
end.
- 22.11.2016 17:16
- thumb_up 32
//Pascal ABC.NET v3.1 сборка 1219
begin
Var seq:=SeqWhile(ReadInteger(),x -> ReadInteger(),x -> x0).ToArray;
seq.Print;
end.
Пример ввода:
1
2
0
Пример вывода:
1 2
- 23.11.2016 11:34
- thumb_up 2
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.