Знайди суму всіх натуральних чисел, що закінчуються - вопрос №5815671 от 0070070070007 24.07.2020 08:27

Question

Другие предметы: Знайди суму всіх натуральних чисел, що закінчуються цифрою 5, які більші за 1800, але менші від 1846

0070070070007 · Answer

Var N : Integer; x : PStack; …………………. N := Stack^.Data; x:= Stack; Stack := Stack^.Next; Dispose(x); ………………….Type PStack = ^TStack; TStack = Record Data : Integer; Next : PStack; end; Var Stack : PStack;

Var x : PStack; …………… New(x); x^.Data := …….; x^.Next := Stack; Stack := x; ……………

Вставь все в блокнот так лучше видно будет.