Напишите программу, которая ищет сколько раз символьная последовательность встречается в слове(решать подробно, через write, length delete и т. п)

294

461

Посмотреть ответы 2

Ответы на вопрос:

rbaimova

Информатика

4,4(35 оценок)

входные данные

на вход программы две символьные строки, каждая строка завершается символом "конец строки".

выходные данные

программа должна вывести все символы, которые встречаются в обеих строках, в порядке возрастания их ascii-кодов. если таких символов нет, нужно вывести слово 'no'.

примеры

входные данные

qwerty

asdqwhy

выходные данные

qwy

входные данные

qwerty

12345

выходные данные

pascal abc 1.8 программа должна быть составлена по теме множества

var set1: set of char;

set2: set of char;

s1, s2: string;

i: integer;

done: boolean;

c: char;

begin

set1 : = [];

set2 : = [];

readln(s1);

readln(s2);

for i : = 1 to length(s1) do

include(set1, s1[i]);

for i : = 1 to length(s2) do

include(set2, s2[i]);

done : = false;

for c : = #0 to #255 do

if (c in set1) and (c in set2) then

begin

done : = true;

write(c);

end;

if not done then

write('no');

writeln;

end

dikushant

Информатика

4,6(33 оценок)

Program primer; var a: real; b: real; c: real; begin writeln('введите первое число'); readln(a); writeln('введите второе число'); readln(b); c: =abs(a)-abs(b); writeln('ответ: ', c: 3); end.