var
n, k, s, sa: integer;
begin
k := 0;
s := 0;
sa := 0;
writeln('Введите последовательность, окончание ввода - число 0');
repeat
read(n);
if (n mod 4 = 0) and (n mod 10 = 2) then s := s + n;
if (n <> 0) and (n < 100) then inc(k);
sa := sa + n
until n = 0;
readln;
writeln('Сумма чисел, кратных 4 и заканчивающихся на 2, равна ', s);
writeln('Количество чисел, не больших 100, равно ', k);
writeln('Сумма последовательности равна ', sa);
readln
end.
Объяснение:
Существует две распространенные операции с памятью - чтение информации из памяти и запись ее в память для хранения.
Объяснение:
Операции с памятью
При чтении порции информации из памяти осуществляется передача ее копии в другое устройство, где с ней производятся определенные действия. После считывания информация не исчезает и хранится в той же области памяти до тех пор, пока на ее место не будет записана другая информация.
При записи (сохранении) информации предыдущие данные, хранящиеся на этом месте, стираются. Вновь записанная информация хранится до тех пор, пока на ее место не будет записана другая.