Найти произведение чисел от k до n не кратных 3

function p(k,n: integer): longin;

var i: integer;

begin

s: =1;

for i: =k to n do begin

if i mod 3< > 0 then

s: =s*i;

endif;

p: =s;

end;

 

1) достаточно большой объем

 

2) не большая цена (по сравнению в переносными внешними жесткими дисками)

 

3) быстрый способ переноса информации

 

4) не требуется домолнительных прграмм для сохранения информации

 

5) есть возможность работать прямо с носителя.

 

многое это есть и у других носителей, но например дискеты маленькой памятью, для работы сс дисками надо иметь и дисковод и, что бы записать туда информацию, необходимо программу. а переносной внешний жеский диск имеет достаточную стоимость, что не покараману некоторым.

var a: array[1..15]of integer; i: integer; beginfor i: =1 to 15 do begin a[i]: =random(31)-15; write(a[i]: 4); end; writeln; for i: =1 to 15 do if a[i]> =0 then a[i]: =sqr(a[i]) else a[i]: =abs(a[i]); for i: =1 to 15 do write(a[i]: 4); end.

 

var a: array[1..15]of integer;

i: integer;

begin

for i: =1 to 15 do begin a[i]: =random(31)-15; write(a[i]: 3); end;

writeln;

for i: =1 to 15 do if a[i] mod 2=0 then a[i]: =2 else a[i]: =a[i]-5;

for i: =1 to 15 do write(a[i]: 3);

end.

 

var a: array[1..15]of integer;

i: integer;

begin

for i: =1 to 15 do begin a[i]: =random(31)-15; write(a[i]: 3); end;

writeln;

for i: =1 to 15 do if a[i] mod 6=0 then a[i]: =a[i] div 2 else a[i]: =a[i] div 5;

for i: =1 to 15 do write(a[i]: 3);

end.

 

 

var a: array[1..15]of integer;

i,k: integer;

begin

for i: =1 to 15 do begin a[i]: =random(31)-15; write(a[i]: 3); end;

writeln;

k: =a[3];

a[3]: =a[11];

a[11]: =k;

for i: =1 to 15 do write(a[i]: 3);

end.