Question

Напишите программу в паскале: Дано 2 строки. Сосчитать количество символов в первой строке, которых нет во второй.

Answer 1

Var
  s1,s2 : String;
  n,i : Integer;
Begin
  n:=0;
  Readln(s1);
  Readln(s2);
  For i:=1 to Length(s1) do If Pos(s1[i],s2)=0 then Inc(n);
  Writeln(n);
end.

Answer 2

Конечно! Вот пример программы на языке Pascal, который выполняет подсчет количества символов в первой строке, которых нет во второй:

pascalCopy code
program CountDifferentChars;

var
  str1, str2: string;
  count: integer;
  i: integer;
  j: integer;
  found: boolean;

begin
  writeln('Введите первую строку:');
  readln(str1);
  
  writeln('Введите вторую строку:');
  readln(str2);
  
  count := 0;
  
  for i := 1 to Length(str1) do
  begin
    found := False;
    for j := 1 to Length(str2) do
    begin
      if str1[i] = str2[j] then
      begin
        found := True;
        break;
      end;
    end;
    
    if not found then
      Inc(count);
  end;
  
  writeln('Количество символов в первой строке, которых нет во второй:', count);
  readln;
end.

Программа запрашивает у пользователя две строки и затем считает количество символов в первой строке, которых нет во второй. Результат выводится на экран.