Помогите, пожалуйста, решить задачу на программирование Паскаль: Четвероклассник Петя сложил из карточек с прописными буквами слово. Оставшиеся карточки с буквами он убрал в ящик стола. Перед приходом из школы его брата Васи Пе...
Помогите, пожалуйста, решить задачу на программирование Паскаль: Четвероклассник Петя сложил из карточек с прописными буквами слово. Оставшиеся
карточки с буквами он убрал в ящик стола. Перед приходом из школы его брата Васи Петя
смешал карточки, из которых он составил слово.
Когда первоклассник Вася увидел на столе карточки с буквами, он попытался из них
составить свое слово.
Определите, какие карточки с буквами из Петиного набора не использовал Вася, если
известны слово, которое собрал Петя и слово, которое собрал Вася.
Ваша программа должна
Запросить слово, которое собрал Петя;
Запросить слово, которое собрал Вася;
Найти и вывести на экран в любом порядке буквы, которые использовал Петя, но не использовал Вася или вывести на экран сообщение о том, что Вася использовал все карточки с буквами Пети.
Гость
Ответ(ы) на вопрос:
ГостьКод Pascal1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 program z1; var p,v:string; a:array[0..255] of byte; i,j:byte; BEGIN write('Слово Пети: '); readln(p); write('Слово Васи: '); readln(v); if (length(p) = length(v)) then begin writeln('Вася использовал все карточки с буквами Пети'); exit; end; fillchar(a,255,0); for i:=1 to length(p) do inc(a[ord(p[i])]); for i:=1 to length(v) do dec(a[ord(v[i])]); write('Не использованы карточки с буквами: '); for i:=1 to 255 do for j:=1 to a[i] do write(chr(i),' '); END.
Не нашли ответ?
Похожие вопросы