Uses crt;
var i,N:integer;
s:real;
begin
s:=0;
write('вв N');
read(N);
for i:=1 to N do
s:=s+sqrt(i);
write('otvet:', s);
readkey
end.
Const z = 50;
var A:Array[1..z,1..z] of integer;
n,i,j:integer;
begin
write('Введите размер массива ');
readln(n);
for i:=1 to n do
beginfor j:=1 to n do
begin
A[i,j]:= random(100)-50;
write(A[i,j]:4);
end;
writeln;
end;
writeln;writeln;
for i:=1 to n do
beginfor j:=1 to n do
begin
if i=j then
A[i,j]:=0;
write(A[i,j]:4);
end;
writeln;
end;end.<span>
</span>
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
uses crt;
var
a:array[1..100]of integer;
i,n:integer;
begin
writeln('skolko elementov?');
readln(n);
randomize;
for i:=1 to n do begin
a[i]:=random(100);
write(a[i]:3);
end;
writeln;
for i:=n downto 1 do
write(a[i]:3);
end.
250,140625 килобайт
если нужно решение то вот:
i=64
K=128*256
I=?
Подсистемы школы, как организации: администрация, преподаватели, технический персонал
Подсистемы компьютера как устройства: системный блок, устройства ввода, устройства вывода
Подсистемы государства (республики, например): президент, правительство, национальный банк. Можно ещё шире: судебная, избирательная и исполнительная власти
Подсистемы Солнечной системы: планеты, кометы, астероиды
Подсистемы человека как живого организма: нервная, эндокринная, кроветворная, двигательная системы
