N = int(input("n = "))if n <= 999999:----mas = []----while n >0:--------a = n %10--------n = n//10--------mas.append(a)--------print(a,end=' ')----print()----print(mas)
Длина слова - 4 символа.
находим так:
256 =
- количество слов
8 бит - вес одного слова
делим вес целого слова на вес одного символа
8/2=4 символа
{Задание а}
var
i:integer;
begin
for i := 90 downto 65 do
writeln(chr(i), ' ', chr(i), ' ', chr(i), ' ', chr(i));
end.
{Задание б}
var
i, j:integer;
begin
for i := 90 downto 65 do
begin
for j := 90 downto 65 + 90 - i do
write(chr(j), ' ');
writeln;
end;
end.
{Задание в}
var
i, j:integer;
begin
for i := 1 to 9 do
begin
for j := 1 to 9 do
if i = j then
write(i, ' ')
else
write('0 ');
writeln;
end;
end.