program number7;
uses crt;
var a,b: integer;
begin
clrscr;
a := 342;
b := 512;
a := a div 10 mod 10;
b := a + b mod 10;
writeln ('17 div 3 = ',b);
readln
end.
b=6
1-2-4-3-5 хотя сто процентов гарантировать не могу, путано оно немного
Var a : array[1..n] of integer;
b,i : integer;
begin
Randomize;
for i:=1 to n do
begin
a[i]:=random(41)+10;
write(a[i],' ');
end;
writeln;
b:=a[1]; a[1]:=a[n]; a[n]:=b;
for i:=1 to n do write(a[i],' ');
writeln
end.
Когда есть компьютер и когда его нет.