Linux a. run command cd; mkdir -p test/{test1,test2,test3}/{abc,def,ghi}; - вопрос №5085197123 от mayerok 17.10.2020 23:11

Question

Информатика: Linux a. run command cd; mkdir -p test/{test1,test2,test3}/{abc,def,ghi}; touch test/test{1,2,3}/abc{1,3,5,7}{a,b,c,d,e,f}.txt; touch test/test{1,2,3}/{abc,def}/testfile; cd - b. output (using echo and wildcards) names of files in all 3 dirs (test1, test2 & test3) with any digit in their names with the final letter before extension (.txt) being f . c. output all files with .txt extension in directory test1. d. output everything in test1 directory. note: in all output commands use single symbol

mayerok · Answer

PascalABC.NET 3.4.2, сборка 1864 от 11.11.2018Внимание! Если программа не работает, обновите версию!

begin

var n := Abs(ReadInteger('Введите целое число:'));

var yes := False;

var n1 := n mod 10;

n := n div 10;

while n > 0 do

begin

var n2 := n mod 10;

if n1 = n2 then

begin

yes := True;

break

end;

n := n div 10;

n1 := n2

end;

if yes then Print('Верно')

else Print('Неверно')

end.

А еще это можно решить, к примеру, так:

begin

var s := Abs(ReadInteger('Введите целое число:')).ToString;

if s.Pairwise.Any(t->t[0]=t[1]) then Print('Верно')

else Print('Неверно')

end.