Предмет: Информатика, автор: ansarildar

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

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


KOPOJlbTPOJlb: не понятно как определять лишнюю букву
KOPOJlbTPOJlb: а в твоём коде integer: t; (вродь так написанно, в паскале не знаю как записывается), интеджер это целые числа, при чём тут числа к словам. в джаве тип данных отвечающий за текст String, попробуй вместо интеджер вписать
KOPOJlbTPOJlb: а, у тебя есть 1 string, зачем тебе integer? Не пойму...
Аноним: Ерунда какая-то. Как узнать какая именно буква лишняя?

Ответы

Автор ответа: KOPOJlbTPOJlb
0
Составлено на джаве:

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

Аноним: 5-9 классы Java не изучают.
Автор ответа: Аноним
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


Приложения:

Аноним: Предполагается без проверки, что Петя вставил ровно один ошибочный символ.
Аноним: Добавил картинку. Здешний кривой сервис сожрал все форматирование.
Похожие вопросы
Предмет: История, автор: selizebet