Помогите написать программу ** PascalABCNET Всем известно, что со временем клавиатура...

0 голосов
201 просмотров

Помогите написать программу на PascalABCNET

Всем известно, что со временем клавиатура изнашивается, и клавиши на ней начинают залипать. Конечно, некоторое время такую клавиатуру еще можно использовать, но для нажатий клавиш приходиться использовать большую силу.
При изготовлении клавиатуры изначально для каждой клавиши задается количество нажатий, которое она должна выдерживать. Если знать эти величины для используемой клавиатуры, то для определенной последовательности нажатых клавиш можно определить, какие клавиши в процессе их использования сломаются, а какие — нет.
Требуется написать программу, определяющую, какие клавиши сломаются в процессе заданного варианта эксплуатации клавиатуры.

ВХОДНЫЕ ДАННЫЕ

Первая строка входного файла содержит целое число n (1≤n≤100) — количество клавиш на клавиатуре. Вторая строка содержит n целых чисел — с1, с2, …, сn, где сi (1≤сi≤100000) — количество нажатий, выдерживаемых i-ой клавишей. Третья строка содержит целое число k (1≤k≤100000) — общее количество нажатий клавиш, и последняя строка содержит k целых чисел pj (1≤pj≤n) — последовательность нажатых клавиш.

ВЫХОДНЫЕ ДАННЫЕ

В выходной файл необходимо вывести n строк, содержащих информацию об исправности клавиш. Если i-ая клавиша сломалась, то i-ая строка должна содержать слово “yes” (без кавычек), если же клавиша работоспособна — слово “no”.


image

Информатика (94 баллов) | 201 просмотров
Дан 1 ответ
0 голосов
Правильный ответ

См. файл во вложении


Скачать вложение Текст (TXT)
(2.0k баллов)
0

Program32.pas(3) : Переменная 'p' нигде не используется
Program32.pas(12) : Ошибка времени выполнения: Файл 'C:\PABCWork.NET\input.txt' не найден.

0

Переменную p забыл убрать, соответствующая строка будет выглядеть так: n, pressedKey : integer;

0

Файл не найден, потому что вы его не создали. Если файл есть, но с другим названием (не input.txt), то в коде напишите свое название.

0

не робит

0

Что именно не работает?

0

то же самое

0

У вас программа не может найти файл. Сохраните программу на диск и в эту же папку поместите ваш текстовый файл.

0

Только название файла исправьте при необходимости