В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
botagos210579
botagos210579
08.08.2022 04:52 •  Информатика

Решить на программирование паскаль: четвероклассник петя сложил из карточек с прописными буквами слово. оставшиеся карточки с буквами он убрал в ящик стола. перед приходом из школы его брата васи петя смешал карточки, из которых он составил слово. когда первоклассник вася увидел на столе карточки с буквами, он попытался из них составить свое слово. определите, какие карточки с буквами из петиного набора не использовал вася, если известны слово, которое собрал петя и слово, которое собрал вася. ваша программа должна  запросить слово, которое собрал петя;  запросить слово, которое собрал вася;  найти и вывести на экран в любом порядке буквы, которые использовал петя, но не использовал вася или вывести на экран сообщение о том, что вася использовал все карточки с буквами пети.

Показать ответ
Ответ:
dsg189g
dsg189g
09.07.2020 22:46
Код 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.
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота