Const
ab = 'ышчо'; //алфавит племени
var
vort: string;
j, k, raz: integer;
per: boolean;//признак переноса разряда
//проверка наличия совпадающих букв в слове
function kond(var vort: string): boolean;
var
n: integer;
begin
result := false;
n := length(vort);
for var i := 1 to n - 1 do
for var j := i + 1 to n do
if vort[j] = vort[i] then
begin
result := true;
exit;
end;
end;
begin
writeln('Введите k');
readln(k);
for var i := 1 to k do
vort := vort + ab[1];
raz := k;
per := false;
while raz > 0 do
if per then
begin
while vort[raz] = ab[4] do
begin
vort[raz] := ab[1];
raz := raz - 1;
if raz < 1 then exit;
end;
j := pos(vort[raz], ab) + 1;
vort[raz] := ab[j];
per := false;
raz := k;
end
else
begin
if kond(vort) then writeln(vort);
j := pos(vort[k], ab) + 1;
if j > 4 then
per := true
else
vort[k] := ab[j];
end;
end.
Системы мира, термин, употребляемый в астрономии для обозначения представлений о строении системы небесных тел - Земля, Луна, Солнце, планеты.
Гелиоцентрическая Система,
Система сфер
<span>геоцентрическая Система
:)</span>
var
s,p:int64;
i,kol,m:integer;
a:array of integer;
begin
readln(kol);
s:=0;
p:=0;
m:=0;
setlength(a,kol);
for i := 1 to kol do
begin
read(a[i]);
s:=s+a[i];
p:=p*a[i];
end;
m:=s div kol;
writeln('Сумма ',s);
writeln('Произведение',p);
writeln('Среднее значение',m);
end.