Для того чтобы узнать какое число стоит на 301 месте введем следующие обозначения: А = 0, Е = 1, У = 2. Тогда получим: 1) 000000, (0) 2) 000001, (1) 3) 000002, (2) 4) 000010, (3) ... 301) ... (300) а это получаются числа записанные в троичной системе счисления. На 301 месте будет стоять число равное в десятичной системе 300 Переведем число 300 из десятичной системы в троичную, получим: 300 : 3 = 100 - остаток 0 100 : 3 = 33 - остаток 1 33 : 3 = 11 - остаток 0 11 : 3 = 3 - остаток 2 3 : 3 = 1 - остаток 0 1 : 3 = 0 - остаток 1 т.е. получаем число 102010 в троичной системе счисления. Подставив обратно наши буквы получим ответ: ЕАУАУА.
var a:array[1..20] of integer; max,min,n,i:integer; begin
randomize; n:=20; for i:=1 to n do a[i]:=random(150); begin min:=a[1]; for i:=1 to n do if a[1]>a[i] then min:=a[i]; end; begin max:=a[1]; for i:=1 to n do if a[1]<a[i] then max:=a[i]; end; writeln(min); writeln(max); end.
2)
const n=5; var x: array[1..n,1..n] of integer; i,j,s: integer; begin randomize; writeln('Matrisa:'); for i:=1 to n do begin for j:=1 to n do begin x[i,j]:=random(200); write(x[i,j]:5); end; writeln end; j:=8; for i:=1 to n do begin j:=j-1; s:=s+x[i,(n+1-i)]; end; writeln('Summa: ',s); end.
1) 000000, (0)
2) 000001, (1)
3) 000002, (2)
4) 000010, (3)
...
301) ... (300)
а это получаются числа записанные в троичной системе счисления.
На 301 месте будет стоять число равное в десятичной системе 300
Переведем число 300 из десятичной системы в троичную, получим:
300 : 3 = 100 - остаток 0
100 : 3 = 33 - остаток 1
33 : 3 = 11 - остаток 0
11 : 3 = 3 - остаток 2
3 : 3 = 1 - остаток 0
1 : 3 = 0 - остаток 1
т.е. получаем число 102010 в троичной системе счисления.
Подставив обратно наши буквы получим ответ: ЕАУАУА.
1)
var a:array[1..20] of integer;
max,min,n,i:integer;
begin
randomize;
n:=20;
for i:=1 to n do a[i]:=random(150);
begin
min:=a[1];
for i:=1 to n do if a[1]>a[i] then min:=a[i];
end;
begin
max:=a[1];
for i:=1 to n do if a[1]<a[i] then max:=a[i];
end;
writeln(min);
writeln(max);
end.
2)
const n=5;
var x: array[1..n,1..n] of integer;
i,j,s: integer;
begin
randomize;
writeln('Matrisa:');
for i:=1 to n do
begin
for j:=1 to n do
begin
x[i,j]:=random(200);
write(x[i,j]:5);
end;
writeln
end;
j:=8;
for i:=1 to n do
begin
j:=j-1;
s:=s+x[i,(n+1-i)];
end;
writeln('Summa: ',s);
end.