У студента-филолога Васи есть замечательный друг Петя. И Петя никак не может выучить...

Question

У студента-филолога Васи есть замечательный друг Петя. И Петя никак не может выучить английский язык. Английский текст Петя еще кое-как читает, но пишет с ужасными ошибками, причем чаще всего он вставляет в слова лишние буквы.

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

Comments

не понятно как определять лишнюю букву

---

а в твоём коде integer: t; (вродь так написанно, в паскале не знаю как записывается), интеджер это целые числа, при чём тут числа к словам. в джаве тип данных отвечающий за текст String, попробуй вместо интеджер вписать

---

а, у тебя есть 1 string, зачем тебе integer? Не пойму...

---

Ерунда какая-то. Как узнать какая именно буква лишняя?

Answer 1

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

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);
}
}

Comments

5-9 классы Java не изучают.

Answer 2

// 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

---

Comments

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

---

Добавил картинку. Здешний кривой сервис сожрал все форматирование.