Question

У студента-филолога Васи есть замечательный друг Петя. И Петя никак не может выучить английский язык. Английский текст Петя еще кое-как читает, но пишет с ужасными ошибками, причем чаще всего он вставляет в слова лишние буквы. Вася решил помочь Пете. Теперь каждый день Вася диктует Пете слова, а Петя их записывает. После семестра занятий Петя стал писать много лучше и теперь делает в словах только по одной ошибке. Чтобы автоматизировать процесс исправления ошибок, Вася просит Вас написать программу, которая удаляет из слова одну лишнюю букву и показывает Пете правильное слово. Испраьте ошибки или напишите свой код сколько пытался ничего не получается: Вот мой код var s:string; t:integer; begin readln(t); readln(S); Delete(S, t,1); writeln(s); end.

Answer 1

// PascalABC.NET 3.4, сборка 1767 от 27.08.2018

// Внимание! Если программа не работает, обновите версию!

begin

var Вася:=ReadlnString('Какое слово продиктовал Вася?');

var Петя:=ReadlnString('Какое слово написал Петя?');

for var ПозицияСимвола:=1 to Вася.Length do

if Вася[ПозицияСимвола]<> Петя [ПозицияСимвола] then

begin

Println('В позиции',ПозицияСимвола,'Петя ошибся');

Println('Он вставил лишнюю букву',Петя[ПозицияСимвола]);

Exit

end;

Println('В позиции',Петя.Length,'Петя ошибся');

Println('Он вставил лишнюю букву',Петя.Last)

end.

Пример работы

Какое слово продиктовал Вася? squirrel

Какое слово написал Петя? squirrael

В позиции 7 Петя ошибся

Он вставил лишнюю букву a

Answer 2

Составлено на джаве:

import java.util.Scanner;

public class mistake {

public static void main(String[] args) {

Scanner in = new Scanner(System.in);
System.out.print("Введите слово с ошибкой: ");
String word = in.nextLine();
System.out.print("Введите ошибку: ");
String mistake= in.nextInt();
StringBuffer sb = word;
sb.delete (mistake);
System.out.println("Слово без ошибки"+sb);
}
}

Answer 3

Ошибки в коде:

1. Отсутствует объявление переменных 's' и 't'. 2. Отсутствует директива 'uses' для подключения необходимых модулей. 3. Тип данных переменной 't' должен быть 'integer', а не 't:integer'. 4. Вместо оператора 'delete' следует использовать оператор 'Delete'. 5. Необходимо добавить директиву 'begin' перед оператором 'readln(s)'. 6. Для вывода результата следует использовать оператор 'writeln' вместо 'write'. 7. Отсутствует директива 'end' для завершения программы.

Исправленный код:

program RemoveExtraLetter;
var
  s: string;
  t: integer;

begin
  readln(t);
  readln(s);
  Delete(s, t, 1);
  writeln(s);
end.

Этот код позволит удалить из строки 's' одну лишнюю букву, указанную пользователем в переменной 't'. Результат будет выведен на экран.