Объяснение:
const nmax=15;
var a:array[1..nmax,1..nmax] of integer;
m,n,i,j,k,x,y:integer;
begin
randomize;
repeat
write('Количество строк до ',nmax,' n=');
readln(n);
until n in [1..nmax];
repeat
write('Количество столбцов до ',nmax,' m=');
readln(m);
until m in [1..nmax];
k:=-1;
for j:=1 to m do
begin
y:=1;
x:=j;
while(x>0) and(y<=n) do
begin
k:=k+1;
a[y,x]:=k;
x:=x-1;
y:=y+1;
end;
end;
for j:=2 to n do
begin
y:=j;
x:=m;
while(x>0)and(y<=n) do
begin
k:=k+1;
a[y,x]:=k;
x:=x-1;
y:=y+1
end;
end;
for i:=1 to n do
begin
for j:=1 to m do
write(a[i,j]:4);
writeln
end;
readln
end.
Переведите на Питон, в Паскале давно не работал
# --- 1
text = "Тут должен быть текст, но про а не забывай, хотя это не важно"
o,a = 0,0
for i in text:
if i == "о":
o += 1
elif i == "а":
a += 1
if a > o:
print("букв а больше")
else:
print("букв о больше", o)
# --- 2
text = "тут тоже текст, запятая"
for i in range(len(text)):
if text[i] == ",":
print("есть запятая")
break
elif i == len(text):
print("нет запятой")
# --- 3
text = "Тут тоже текст надо придумать"
for i in text:
if i == "н":
print("н раньше")
break
elif i == "к":
print("к раньше")
break
# --- 4
text = "Тут 1тоже куда нибудь например цифру поставь"
for i in range(len(text)):
if text[i].isspace():
try:
float(text[i+1])
print("Есть")
break
except:
pass
elif i+1 == len(text):
print("net")
# --- 5
text = "тут цифры тип 1 2 и т.д, но запятые тоже"
n = 0
z = 0
for i in text:
if i.isdigit():
n += 1
elif i == ",":
z += 1
if n > z:
print("ццифр больше")
elif n < z:
print("запятых больше")
else:
print("==")
Датчики цвета не подключены к основному модуля NXT/EV3