Вопрос по информатике:
ПАСКАЛЬ
Вводится последовательность целых чисел до 0. Вычислить последовательность элементов выделенной последовательности (через while или repeat)
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 05.10.2015 09:08
- Информатика
- remove_red_eye 10609
- thumb_up 27
Ответы и объяснения 1
begin
var s:= new stack;
var n:integer;
Writeln('Вводите числа, ноль завершает ввод');
repeat
Read(n);
if n0 then s.Push(n);
until n=0;
for var i:=1 to s.Count do begin
Write(s.Peek,' ');
s.Pop
end;
Writeln
end.
кажется так
- 06.10.2015 18:30
- thumb_up 28
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.