Question

Решить задачи в ПАСКАЛЕ!! ПОЖАЛУЙСТА!!!!!! 1. Подсчитать, сколько раз символ «e» встречается во вводимой с клавиатуры строке. 2. Даны строка s1=’операция сложения’ и строка s2=’дистрибутивность’. Используя только эти строки, получить строку ‘оперативность’. 3. Проверить, имеется ли строка s1=’dfg h’ во вводимой с клавиатуры строке.

Answer 1

я не знаю

от поьуосдоашто

Answer 2

Конечно, вот решения задач на языке Pascal:

1. Подсчитать, сколько раз символ «e» встречается во вводимой с клавиатуры строке:

pascalCopy code
program CountE;
var
  str: string;
  countE, i: integer;
begin
  countE := 0;
  writeln('Введите строку:');
  readln(str);
  for i := 1 to length(str) do
  begin
    if str[i] = 'e' then
      countE := countE + 1;
  end;
  writeln('Количество символов "e" в строке:', countE);
end.

2. Даны строка s1=’операция сложения’ и строка s2=’дистрибутивность’. Используя только эти строки, получить строку ‘оперативность’:

pascalCopy code
program ConcatenateStrings;
var
  s1, s2, resultStr: string;
begin
  s1 := 'операция сложения';
  s2 := 'дистрибутивность';
  resultStr := copy(s1, 1, 7) + copy(s2, 6, 6);
  writeln('Результат: ', resultStr);
end.

3. Проверить, имеется ли строка s1=’dfg h’ во вводимой с клавиатуры строке:

pascalCopy code
program CheckSubstring;
var
  inputStr: string;
  s1: string = 'dfg h';
begin
  writeln('Введите строку:');
  readln(inputStr);
  if pos(s1, inputStr) > 0 then
    writeln('Строка s1 найдена во вводимой строке.')
  else
    writeln('Строка s1 не найдена во вводимой строке.');
end.

Просто скопируйте код каждой программы в среду разработки Pascal и выполните их для получения результатов.