Оперативная память - это память краткосрочная, то есть она не сохраняется на компьютере. Основная задача оперативной памяти - это давать программам временную память для их потребностей. Вот, например, есть у тебя приложение А и приложение В. Ты делаешь что-то в приложение А и внезапно приходит сообщение в приложении Б. Ты ведь не станешь закрывать приложение А? Потому что можешь его скрыть. Когда ты скрываешь приложение ему выделяется оперативная память, которая позволяет свернуть приложение, а не закрывать его. И когда ты ответишь на сообщение в программе Б, ты спокойно можешь вернуться обратно к работе в приложении А. Это существенно ускоряет работу людей за компьютером.
Долговременная память - это память, которая будет вечно на компьютере. Единственный способ от неё избавится это собственноручно удалить.
Var
a:array[1..6]of integer;
i,j,max:integer;
function mx(a,b:integer):integer;
begin
if a>b then result:=a else result:=b;
end;
begin
for i:=1 to 6 do
begin
a[i]:=random(20);
write(a[i]:4);
end;
writeln;
max:=a[1];
for i:=1 to 6 do
for j:=i+1 to 6 do
if mx(a[i],a[j])>max then max:=mx(a[i],a[j]);
writeln('max=',max);
<span>end.</span>
<em>Program Zn;</em>
<em>var n,k,sum:integer;</em>
<em>Begin</em>
<em>Writeln('Введите натуральное число');</em>
<em>Readln(n);</em>
<em>While n<>0 do begin</em>
<em>k:= n mod 10;</em>
<em>if k mod 2 = 0 then sum:=sum+k;</em>
<em>n:= n div 10;</em>
<em>end;</em>
<em>writeln('Сумма четных чисел = ', sum);</em>
<em>end.</em>
<em>(Проверено и откомпелировано на Pascal.NET)</em>
1. program ex1;
uses crt;
var i, count : integer;
begin
count:=0;
for i:=1 to 9999 do
begin
if (i mod 5 = 0) and (i mod 7 = 0) then
begin
writeln(i);
count:=count+1;
if count=10 then
break;
end;
end;
end.
2. program ex2;
var sum, count, n : integer;
begin
count:=0;
n:=9999;
sum:=0;
while not (n = 0) do
begin
readln(n);
if (not n mod 2 = 0) and (n>0) then
begin
sum:=sum+n;
count:=count+1;
end;
end;
writeln('Ср. арифм. = ', sum/count);
end.
3. program ex1;
var price, i: integer;
begin
write('Введите цену товара за 1 кг. :');
readln(price);
for i:=1 to 15 do
write(i:6, '|');
writeln();
for i:=1 to 15 do
write('-------');
writeln();
for i:=1 to 15 do
write((price/10*i):6,'|');
end.
Подключаться к интернету,загружать программы и приложения,проигрывать музыку,фотографировать... Удачи:)