Код написал на Python:
Рандомная строка из букв, цифр и знаков пунктуации:
import random
chars = "0123456789r!'#$%&()*+,-./:;<=>[email protected][\]^_`{|}~"
len_chars = len(chars)
str_result = ""
for i in range(10):
r_number = random.randint(0,len_chars)
str_result = str_result + chars[r_number]
print(str_result)
Проверка на цифры в строке (если будете считать как новую задачу, то знайте, кусок кода взял из первой для генерации случайной строки):
import random
chars = "0123456789r!'#$%&()*+,-./:;<=>[email protected][\]^_`{|}~"
len_chars = len(chars)
str_result = ""
for i in range(10):
r_number = random.randint(0,len_chars)
str_result = str_result + chars[r_number]
print(str_result)
counter = 0
for i in range(10):
if (i == 9):
if (str_result[i].isnumeric() == False):
print("There is no numbers in string")
else:
if (str_result[i].isnumeric() == True):
print("There is at least one number in string")
break
else:
continue
Какая бы не была прекрасная и чёткая система автоматизирования - она может ошибаться. Да, в нынешнем мире она делает это всё реже и реже, но, всё же, она ошибается. Человек должен её контролировать, обезопасить, в первую очередь, себя и себе подобных от её неправильных действий, которые могут навредить. В конце концов эту систему создал человек, а человек, как мы знаем, тоже ошибается и никогда не сотворит идеал (хотя, кто знает). Значит его детище - автоматизированная система управления в данном случае - тоже не может быть идеальной и может ошибаться. Поэтому, конечно, её нужно контролировать.
Таков мой ответ. Он очень субъективен, соглашаться с ним или нет - решать Вам :)
Поделитесь своими знаниями, ответьте на вопрос:
Написать программу в паскале " для заданной квадратной матрицы 6*6 сформировать одномерный массив из ее диагональных элементов. вывести исходный массив и результаты вычисления."
n=6;
var
a:array[1..n,1..n]of integer;
b:array[1..n]of integer;
i,j:integer;
begin
for i:=1 to n do
begin
for j:=1 to n do
begin
a[i,j]:=random(100);
write(a[i,j]:4);
end;
b[i]:=a[i,i];
writeln;
end;
writeln;
for i:=1 to n do
write(b[i]:4);
end.
вариант главной и побочной диагонали в одномерный массив
const
n=6;
var
a:array[1..n,1..n]of integer;
b:array[1..n*2]of integer;
i,j,k:integer;
begin
writeln;
for i:=1 to n do
begin
for j:=1 to n do
begin
a[i,j]:=random(100);
write(a[i,j]:4);
end;
k:=k+1;
b[k]:=a[i,i];
k:=k+1;
b[k]:=a[i,n+1-i];
writeln;
end;
writeln;
for i:=1 to n*2 do
write(b[i]:4);
end.