Надо быть в каталоге /home/porgand/Desktop чтобы совершать дальнейшие действия. Porgand = имя пользователя) cd /home/porgand/Desktop touch new.txt new2.txt go.sh ls mkdir newdir newdir2 ls rm new2.txt rmdir newdir2 ls Tähistused: Обозначения: "r" on faili kataloogi lugemise õigus / право на чтение файла в каталоге "w" on faili kataloogi kirjutamise õigus / право на запись файла в каталоге "x" on failide käivitamise õigus ja kataloogi sisenemise õigus / право на запуск файлов и на вход в каталог nano go.sh » lisame failisse kirja / добавляем запись в файл echo Tere, kalad! salvestamine nagu tavaliselt / сохраняем, как обычно - F2, Y, ENTER chmod +x go.sh ./go.sh (terminalis peab näidata teksti, mis oli go.sh failisse kirjutatud) (в терминале должен появиться текст, который до этого был записан в файле go.sh) chmod -x go.sh ./go.sh (terminal peab ütlema "bash: -/go.sh: Permission denied" (luba on keelatud)) (терминал должен сообщить "bash: -/go.sh: Permission denied" (доступ запрещен) ) chmod —help (näitab, kuidas chmod kasutada, chmod = change mode = muuda režiimi) (показывает, как использовать chmod, chmod = change mode = изменить режим) Chmod calculator NB! ON VAJA TEADA, kuidas chmod õigused kasutada (permission ID - luba ID): NB! НАДО ЗНАТЬ, как использовать права chmod (permission ID - ID доступа): Link
//Pascal ABC.NET v3.0 сборка 1111
//1
Var
a,p,s:real;
begin
readln(a);
p:=a*4;
s:=a*a;
writeln('P=',p);
writeln('S=',s);
end.
//2
Var
a,b:integer;
begin
read(a,b);
if a>b then writeln(b);
if a=b then writeln('=');
if a<b then writeln(a);
end.
{На этом и закончу всем, кто когда либо и чем либо поддерживал данный проект. Думаю, он ещё многим послужит в критический момент. И я говорю не только про "списать домашку". Счастливо оставаться, господин Alviko. Может, ещё увидимся.
Ваш, Глеб 'I3artle' Косырев}
Если что, часть программы не нужна для построения цепочки. Она просто иллюстрирует, что полученный результат верен.
}
var
sq : array[0..999] of array[0..9] of boolean;
co : array[0..999] of integer;
ar : array[1..10003] of 0..9;
i,j: integer;
x: integer;
t : boolean;
begin
for i := 0 to 999 do
begin
for j := 0 to 9 do
sq[i][j] := false;
co[i] := 0;
end;
for i := 1 to 3 do
ar[i] := 0;
i := 3;
t := true;
{write('000');}
while t do
begin
i := i + 1;
x := ar[i-3]*100 + ar[i-2]*10 + ar[i-1];
if co[x] >= 10 then t := false
else
begin
j := 1;
while sq[x][j] do
j := (j + 1) mod 10;
ar[i] := j;
sq[x][j] := true;
co[x] := co[x] + 1;
{write(j)}
end;
end;
{writeln;}
writeln('Length: ',i - 1);
{просто чтобы убедиться}
for i := 0 to 999 do
for j := 0 to 9 do
sq[i][j] := false;
t := true;
j := 0;
i := 1;
while (i <= 10000) and t do
begin
x := ar[i] * 100 + ar[i+1] * 10 + ar[i+2];
if sq[x][ar[i+3]] then t := false
else
begin
sq[x][ar[i+3]] := true;
j := j + 1;
end;
i := i + 1
end;
if t and (j = 10000) then
write('Confirmed')
end.