Загрузки информации из внешней<span> памяти в оперативную</span>
Var s,p,real;
begin
p:=1;
s:=0;
for var i:=8 to 35 do
if i mod 2 = 0 then begin
s:=s+i;
p:=p*i;
end;
writeln('Сумма четных = ',s,', Произведенние четных = ', p);
end.
Program sagen_metr;
var i: integer;
a: real;
begin
for i:=1 to 10 do
begin
a:=i*2.1366;
writeln (i,' сажень =',a,' м');
end;
end.
program fut_metr;
var i: integer;
a: real;
begin
for i:=1 to 10 do
begin
a:=i*0.3048;
writeln (i,' фут =',a,' м');
end;
end.
program drahm_gram;
var i: integer;
a: real;
begin
for i:=1 to 10 do
begin
a:=i*3.7325;
writeln (i,' драхм =',a,' г');
end;
end.
program unziy_gram;
var i: integer;
a: real;
begin
for i:=1 to 10 do
begin
a:=i*29.86;
writeln (i,' унция =',a,' г');
end;
end.
Var a,n: integer;
begin write('Введите a: ');
readln(a);
n:=352346543;
writeln(a,n,a);
<span>end.</span>