var a,s,i:integer;
begin
randomize;
s:=0;
for i:=1 to 15 do
begin
a:=random(100);
s:=s+a;
end;
write('s=',s);
end.
Function _Xor (x,y:boolean):boolean;
begin
_Xor:=x<>y;
end;
var x,y:byte;
begin
write('x = ');
readln(x);
write('y = ');
readln(y);
writeln(ord(_Xor(x=1,y=1)));
end.
Пример:
x = 1
y = 0
1
Txt, docx, pdf, doc и много других
PROGRAM Z13;
const n=6; m=7;
var a: array[1..n, 1..m] of integer;
i,j,k:integer;
begin
k:=2;
for j:=1 to m do
begin
for i:=1 to n do a[i,j]:=k;
k:=k+3;
end;
for j:=1 to m do
begin
for i:=1 to n do
write(a[i,j]:4);
writeln;
end;
end.<span>
</span>
Линейный алгоритм - алгоритм, все элементы которого выполняются последовательно.
Машина, берега, операционная система, клавиатурный тренажер.