Var s1,s2,a:string;

begin

Readln(s1);

for var i := 0 to 9 do a += IntToStr(i);

for var i := 1 to Length(s1) do

for var k := 1 to 9 do

if s1[i] = a[k] then s2 += s1[i];

write(s2);

end. В информатике не разбираюсь, я просто этот код прочитать не могу, можете рассказать что делает каждая строчка этого кода.

алюберт    1   13.03.2021 13:13    0