Последняя цифра числа в любой СС при переводе из 10-СС, - это остаток от первого деления этого числа на основание СС Например, в СС-6 : 29:6=4 и 5 в остатке, значит последней цифрой будет 5 Далее (СС менее 6 не рассматриваем, т.к. они не используют знак 5): СС-7: 29:7=4 ост.1 (не 5) СС-8: 29:8=3 ост.5 СС-9: 29:9=3 ост.2 (не 5) СС-10: 29:10=2 ост.9 СС-11: 29:11=2 ост.7 СС-12: 29:12=2 ост.5 СС-13: 29:13=2 ост.3 СС-14: 29:14=2 ост.1 СС-15: 29:15=1 ост.14 СС-16: 29:16=1 ост.13 СС-17: 29:17=1 ост. 12 СС-18: 29:18=1 ост.11 СС-19: 29:19=1 ост.10 СС-20: 29:20=1 ост.9 СС-21: 29:21=1 ост. 8 СС-22: 29:22=1 ост.7 СС23: 29:23=1 ост. 6 Сс-24: 29:24=1 ост.5 И т.д Итак, ответом являются СС 6, 8, 12, 24
//Я просто опишу метод записи матрицы const n=100; var ar:array of array of integer; ars:array of array of string; i:integer;
procedure complection(var ar:array of array of integer;var ars:array of array of string); var i,j:integer; begin; for i:=1 to n do begin; for j:=1 to n do begin; ar[i,j]:=random(9); str(ar[i,j],ars[i,j]); end; end; end;
procedure burning(ars:array of array of string); var i,j:integer; t:text; begin; assign(t,'text.txt'); rewrite(t); for i:=1 to n do begin; writeln(t,' '); for j:=1 to n do write(t,ars[i,j],' '); end; end;
begin; randomize; setlength(ar,n+1); setlength(ars,n+1); for i:=1 to n do begin; setlength(ar[i],n+1); setlength(ars[i],n+1); end; complection(ar,ars); burning(ars); end.
1)var ar:array of integer; max,min,s,i,n,maxi,mini:integer; begin; randomize; max:=-1; min:=101; readln(n); setlength(ar,n+1); writeln('Array:'); for i:=1 to n do begin; ar[i]:=random(100); write(ar[i]:4); if max<ar[i] then begin; max:=ar[i]; maxi:=i; end; if min>ar[i] then begin; min:=ar[i]; mini:=i; end; s:=s+ar[i]; end; ar[maxi]:=s; ar[mini]:=s; writeln; writeln('Final array:'); for i:=1 to n do write(ar[i]:4); end. 2)var ar:array of integer; k,h,i,s:integer; f:real; begin; randomize; readln(h); setlength(ar,h+1); writeln('Array:'); for i:=1 to h do begin; ar[i]:=random(100)-50; write(ar[i]:4); if (ar[i]>0) and (ar[i] mod 2=0) then begin; inc(k); s:=s+ar[i]; end; end; f:=s/k; writeln; writeln('Result:',f); end.
