Question

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

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

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

Answer 2

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

Answer 3

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

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

Answer 5

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