Артур Дент покинул свою каюту с целью раздобыть чашку чая. В это предприятие он пустился со слабой надеждой на успех, ибо знал, что единственным источником горячих напитков на борту был нутримат – погрязший в невежестве автоматический синтезатор пищи. Этот агрегат не уставал хвастаться своей приготовить любой напиток с учетом вкусов и особенностей обмена веществ клиента, но всякий раз подсовывал Артуру пластмассовую чашку с жидкостью, которая почти ничем не отличалась от абсолютной противоположности чая. Напишите программу, которая ищет противоположности.
Формат ввода
Вводятся строки чисел, записанных через #, пока не появится число 999 в строке.
Формат вывода
Из каждой строки через пробел без повторений вывести числа, в которых нет цифр из первого в строке числа. Выводить в возрастающем порядке, в каждой второй, начиная с первой, в конце вывести сумму выбранных в этой строке чисел.
Если чисел не нашлось, вывести пустую строку, сумму не выводить.
7
2
мотор
торт
Торт
Объяснение:
writeln(length(s)) - вывод количества символов в строке
writeln(pos('о',s)) - вывод первой позиции символа 'о' в строке s
delete(s,3,2) - удаление в строке s 2-х символов начиная с символа под номером 3
writeln(s) - вывод получившейся строки s
t:=copy(s, 3, 3) - копирование в строку t 3-х символов строки s начиная с 3 символа (тор)
insert ('т',t,4) - вставка символа 'т' в строку t на позицию 4
writeln (t) - вывод получившейся строки t
t[1]:=UpCase(t[1]) - замена первого символа строки t на заглавный
writeln (t) - вывод получившейся строки t
7
2
мотор
Торт
Объяснение:
Writeln(length(s)) - вывод количества символов в строке
Writeln(pos('о',s)) - вывод первой позиции символа 'о' в строке s
Delete(s,3,2) - удаление в строке s 2-х символов начиная с символа под номером 3
Writeln(s) - вывод получившейся строки s
T:=copy(s, 3, 3) - копирование в строку t 3-х символов строки s начиная с 3 символа (тор)
Insert ('т',t,4) - вставка символа 'т' в строку t на позицию 4
Writeln (t) - вывод получившейся строки t
T[1]:=UpCase(t[1]) - замена первого символа строки t на заглавный
Writeln (t) - вывод получившейся строки t