Question

Дана строка. написать программу,заменяющую в строке все буквы "s" на буквы "с" помогите пожалуйста!!!в паскале)

Answer 1

Var T:string;
k:integer;
s,c:char;
begin
Writeln('Введите строку');
Readln(T);
Writeln('Введите буквы s и c');
Readln(c);
While not(Pos(s,T)=0) do
begin
k:=Pos(s,T);
T[k]:=c;
end;
Writeln('Изменённая строка -  ',T);
end.

Answer 2

Выделить строку и нажать шифт+цтрл-это в левом нижнем углу клавиатуры

Answer 3

Чтобы написать программу на Pascal, которая заменяет все буквы "s" на буквы "с" в строке, вам понадобится использовать цикл для перебора каждого символа в строке и условное выражение для замены символов.

Вот пример программы на Pascal, которая выполняет эту задачу:

program ReplaceLetters;
var
  inputString, outputString: string;
  i: integer;
begin
  // Ввод строки
  writeln('Введите строку:');
  readln(inputString);

// Замена букв "s" на буквы "с"
  outputString := '';
  for i := 1 to length(inputString) do
  begin
    if inputString[i] = 's' then
      outputString := outputString + 'c'
    else
      outputString := outputString + inputString[i];
  end;

// Вывод результата
  writeln('Результат:');
  writeln(outputString);
end.

Программа запрашивает у пользователя ввод строки, затем перебирает каждый символ в строке. Если символ равен "s", он заменяется на "с" в выходной строке. В противном случае символ остается без изменений. В конце программа выводит измененную строку.

Надеюсь, это поможет вам! Если у вас возникнут дополнительные вопросы, пожалуйста, дайте мне знать.