1. Информатика
  2. Срешением, на завтра

Срешением, на завтра уже нужно(( №3. строковые переменные из заданного текста выбрать и напечатать те символы, которые встречаются в нём ровно один раз.

сынок16 сынок16    3   18.03.2019 23:40    0

Ответы
azizovabina azizovabina  26.05.2020 01:49

var i,j:integer; s:string;

begin

read(s);

writeln;

for i:=1 to length(s) do

begin

for j:=0 to i-1 do

if (s[i]<>s[j]) or (s[i]=' ') then for j:=i+1 to length(s) do if (s[i]<>s[j]) or (s[i]=' ') then write(s[i],' ');

end;

end. 

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
MuxaBirko MuxaBirko  08.08.2019 12:30
Красной шапочке надо попасть из нижней левой клетки в верхнию правую.ходить можно толь ко в право или вверх.попав в соответствующую клетку,она получает некоторое количество очков...
solomijahladij6 solomijahladij6  24.09.2019 07:40
Y= -3. чему станет равно значение переменных x и y после выполнения командной строки x = x + 2: y = x + 2?...
виктор238 виктор238  24.09.2019 07:40
Примеры информации, представленной в табличной форме?...
1venera4 1venera4  04.04.2019 16:48
Сколько символов можно закодировать с знаков «плюс» и «минус», используя кодовые слова различной длины — от 1 до 3 знаков? сколько символов можно закодировать с кода, содержащего...
Myziki Myziki  04.04.2019 16:47
Сколько символов можно закодировать с двоичного кода, используя кодовые слова различной длины — от 1 до 5 знаков? для кодирования сообщений используется неравномерный двоичный код:...
Nasib15 Nasib15  04.04.2019 16:45
Утверждения, которые относятся к растровой графике: недостаток - большой объём изображения изображение формируется в виде растра возможно масштабирование без потери качества изображения...
megamozg40 megamozg40  17.07.2019 00:40
Дано натуральное число n больше 1. найдите количество его делителей. (программа в паскале на цикл for)...
sanfirovngmail sanfirovngmail  17.07.2019 00:40
Напишите программу алгоритмическим языком для нахождения нод по евклиду (делить большое число на меньшее, а потом ему присваивать значение остатка)...
OliWer02 OliWer02  17.07.2019 00:30
с программой. не обижу. 10кл дан массив заданный датчиком случайных чисел в интервале [-50; 130]. определить, минимальный и максимальный элемент массива....
зарема89 зарема89  17.07.2019 00:30
Как на паскаль abc нарисоввть лодку с парусом?...

Популярные вопросы