Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
на каком япе? вот пример решения на паскале abc.
program test;
var s: string;
begin
read(s);
write(s);
end.
varn: integer; beginreadln(n); n: = n div 10; n: =(n div 100)*10 +n mod 10; writeln(n); n: = (n mod 10)*100+ ((n mod 100) div 10)*10+ n div 100; writeln(n); end.
i,j,k: integer;
unique: boolean;
for i : = 1000 to 9999 do
s : = str(i);
unique: =true;
for j: = 1 to length(s)-1 do
for k : = j+1 to length(s) do
if s[j] = s[k] then unique: =false;
end;
if unique then
writeln(i);
может длинее, но универсальное.
begin s : = 'informatica'; writeln(s); writeln(copy(s, 3, 5)); writeln(copy(s, 6, 3)); writeln(copy(s, 8, 3)); writeln(copy(s, 8, 2) + s[5]); end.
Популярные вопросы