Const
n = 6;
var
i, j: integer;
a: array[1..n, 1..n] of integer;
begin
for i := 1 to n do
begin
for j := 1 to n do
begin
if j < i then a[i, j] := 0
else a[i, j] := 1;
write(a[i, j])
end;
writeln;
end;
end.
Тестовое решение:
111111
011111
001111
000111
000011
000001
1 картинка 20 упражнение . Я включил компьютер и набрал на клавиатуре сочинение про свою семью . Затем я переписал с фотоаппарата последние фотографии, добавил их к тексту и вывел сочинение на монитор. После этого я прибавил громкость звука колонок и стал играть в любимую игру , быстро двигая мышкой . Получив рекордный результат , я ввёл с клавиатуры своё имя и распечатал на принтере список рекордсменов .
kr = []
numers = []
numbers = int(input('Введите количество чисел в последовательности:\n'))
for i in range(numbers):
new_el = int(input())
numers.append(new_el)
for i in range(len(numers)):
if numers[i] % 9 == 0:
print(numers[i])
kr.append(numers[i])
print(min(kr))
Var a,b,c:integer;
begin
readln(a,b,c);
if (a=b) and (b=c) and (a=c) then write('Равносторонний')
else write('Не равносторонний');
end.
var a:array[1..10] of integer;
i:byte;
begin
for i:=1 to 10 do
read(a[i]);
for i:=1 to 10 do
writeln(a[i]*2);
end.