Программа работает
var
<span>n,</span><span>i,j,</span><span>s :integer;
</span>begin
Write('введите число');
Readln(n);
for i:=1 to n
do begin
s:=0;
for j:=1 to i div 2 do begin
if i mod j=0 then inc(s);end;
if s=1 then Writeln(i);
end;end.
<span>
П.С. программа находит все простые числа до заданного тобой числа</span>
Паскаль ABC:
Const
N = 7;
Var
A:array[0..N] of real;
i:integer;
Begin
WriteLn('N = ',7);
For i:= 0 to N-1 do
Begin
A[i]:=power(2,i);
WriteLn('2^',i,' = ',A[i])
End;
End.
ABC.net:
Var
A:array of real;
N,i:integer;
Begin
Write('N = ');ReadLn(N);
A:=new real[N];
For i:= 0 to N-1 do
Begin
A[i]:=power(2,i);
WriteLn('2^',i,' = ',A[i])
End;
End.
Попробуй тут
http://www.bestreferat.ru/referat-8161.html
Органы чувств-язык,нос,кожа,уши,глаза
чувств-грусть,радостьи так далее я думаю так
I большая означает объём информации, например.
I=K*i - для текста
I=n*i*v*t - для звука(n - количество потоков(моно, стерео, квадро....)
I=h*w*i - для изображений(h, w - высота и ширина картинки)