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