Program gt;
var n,q,a1,a2,a3,a4,a5,a6,a7,a8,a9,a0:integer;
begin
read(n);
a0:=0;a1:=0;
a2:=0;a3:=0;
a4:=0;a5:=0;
a6:=0;a7:=0;
a8:=0;a9:=0;
while n>0 do
begin
q:=n mod 10;
n:=n div 10;
if(q=0)then a0:=a0+1;
if(q=1)then a1:=a1+1;
***********************
***********************
if(q=9)then a9:=a9+1;
end;
if(a0>1)or(a1>1)or....(a9>1)then writeln('yes')else writeln('no');
end.
буз массива как-то так получиться
From random import random
n = int(input("n = "))
a = []
b = []
for i in range(n):
c = int(random() * 50)
a.append(c)
print(a)
s = 0
for i in range(n-1,-1,-1):
s = s+a[i]
b.insert(0,s)
print(b)
Пример:
<span>n = 5
[5, 43, 7, 20, 36]
[111, 106, 63, 56, 36]</span>
Компа́кт-диск - <span>оптический носитель информации в виде диска с отверстием в центре, информация с которого считывается с помощью лазер</span>
<span><span>Флэш-карта - <span>Устройства, выполненные на одной микросхеме (кристалле) и не имеющие подвижных частей, основаны на кристаллах электрически перепрограммируемой флэш-памяти</span></span></span>
<span>Оперативная</span><span> память-<span>устройство, </span></span>
<span>предназначенное для хранения обрабатываемой информации (данных) и программ, управляющих процессором </span><span>обработки</span><span> информации</span><span>Кэш-память<span> – устройство, имеющее очень короткое время доступа к данным. Встроенная в микросхему сверхбыстрая память. Обычно имеет размер 256 или 512 Кбайт, в мощных компьютерах до 1Гб и более.</span></span>
Const
n = 10;
var
i, j: integer;
a: array[1..n, 1..n] of integer;
begin
for i := 1 to n do
for j := 1 to n do
if i = j then a[i, i] := n - i + 1
else a[i, j] := 0;
writeln;
for i := 1 to n do
begin
for j := 1 to n do write(a[i, j]:4);
writeln
end
end.
10 0 0 0 0 0 0 0 0 0
0 9 0 0 0 0 0 0 0 0
0 0 8 0 0 0 0 0 0 0
0 0 0 7 0 0 0 0 0 0
0 0 0 0 6 0 0 0 0 0
0 0 0 0 0 5 0 0 0 0
0 0 0 0 0 0 4 0 0 0
0 0 0 0 0 0 0 3 0 0
0 0 0 0 0 0 0 0 2 0
0 0 0 0 0 0 0 0 0 1