var i,j:integer;
begin
for i := 1 to 4 do
begin
for j:= i to 4 do write ('3 ');
writeln
end
end.
1024*8/64*64=2 бита - это глубина цвета i
2 возводим в степень 2 =4 цвета по формуле(N=2^i)
//прога на Pascal`e
var
a : array[1..10] of shortint;
i, count, sum : byte;
begin
randomize;
write ('Сформированный массив: ');
for i:=1 to 10 do
begin
a[i]:=random (20);
write (a[i], '; ');
inc (sum, a[i]);
end;
writeln ();
write ('Кол-во элементов массива, значение которых превышает СА: ');
for i:=1 to 10 do
if a[i]>(sum/10) then inc (count, 1);
write (count);
end.
А только у меня фото не отображается?
Python 3:
k = 0
for a in range(10, 100):
[tab] for b in range(10, 100):
[tab] [tab] if ((a+b)<=100):
[tab] [tab] [tab] k+=1
[tab] [tab] [tab] print('k=', k)
P.S. один [tab] - 4 пробела