Вструктуре данных стек операцию добавления элемента назвали add, операцию извлечения — extract. запишите - id895401120211017 от naidanurieva 17.10.2021 11:03

Question

Информатика: Вструктуре данных стек операцию добавления элемента назвали add, операцию извлечения — extract. запишите извлечённые элементы для заданной последовательности операций: add 35 → add 57 → add 58 → add 95 → extract → add 45 → add 71 → add 33 → extract → extract → extract → extract → extract → extract

naidanurieva · Accepted Answer

Вот код:

var ababab,bababa,sususumamama:Integer;
begin
WriteLn('Перед вами программа для нахождения суммы всех натуральных чисел заданного диапазона');
введите наименшее число диапазона ');
ReadLn(ababab);
Write('А теперь введите наибольшее число диапазона ');
ReadLn(bababa);
//оформляем ввод данных
sususumamama:=0;//присваиваем сумме значение 0
while ababab<=bababa do
begin
sususumamama:=sususumamama+ababab;//увеличиваем сумму на число а
ababab:=ababab+1;//увеличиваем число а на 1
end;
Write('Сумма всех чисел диапазона равна '+sususumamama);
//выводим сумму чисел
end.

MOGZ ответил