Вход
Регистрация
Спроси Mozg AI
М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
.....больше.....
..меньше..
Neprostone
08.02.2022 08:06 •
Информатика
Нужно максимально оперативно решить!
👇
Увидеть ответ
Открыть все ответы
Ответ:
Davidggg
08.02.2022
Var used: Set of Char;
s1, s2: string;
i: integer;
done: boolean;
c: char;
function IsLetter(c: char): boolean;
begin
IsLetter := ((c >= 'a') and (c <= 'z')) or ((c >= 'A') and (c <= 'Z'));
end;
function UpperCase(c: char): char;
begin
if (c >= 'a') and (c <= 'z') then
UpperCase := Chr(Ord(c) - Ord('a') + Ord('A'))
else
UpperCase := c;
end;
begin
used := [];
readln(s1);
readln(s2);
for i := 1 to length(s1) do
if (IsLetter(s1[i])) then
include(used, UpperCase(s1[i]));
for i := 1 to length(s2) do
if (IsLetter(s2[i])) then
include(used, UpperCase(s2[i]));
done := False;
for c := 'A' to 'Z' do
if not (c in used) then
begin
done := True;
write(c);
end;
if not done then
write(0);
writeln;
end.
4,6
(55 оценок)
Ответ:
GanifaGasanova505
08.02.2022
//написано на си/си++
#include <iostream>#include <stdio.h>#include <time.h>
#define length 20
int main() { setlocale(LC_ALL, ""); srand(time(NULL));
int arr[length];
for (int i = 0; i < length; ++i) { arr[i] = rand() % 100 + 1; std::cout << arr[i] << "\n"; }
for (int i = 0; i < length; ++i) { if (arr[i] % 2 == 0) { for (int j = 0; j < length - 1; ++j) { if (arr[j] % 2 == 0) { if (arr[i] < arr[j]) {//сортировка будет происходить от Б к М int tmp = arr[i]; arr[i] = arr[j]; arr[j] = tmp; } } } } }
std::cout << "\nsorted array\n\n"; for (int i = 0; i < length; ++i) { std::cout << arr[i] << "\n"; }
system("pause"); return 0;}
4,8
(87 оценок)
Это интересно:
Д
Дом-и-сад
01.06.2021
Как сделать гелевый освежитель воздуха: просто, быстро и недорого...
К
Компьютеры-и-электроника
21.04.2022
Как победить Анкано в Skyrim...
15.01.2022
Как довольствоваться тем, что у вас есть...
В
Взаимоотношения
29.10.2021
Как отказаться от мысли об измене партнеру...
К
Компьютеры-и-электроника
04.10.2022
Как удалить старые сообщения в WhatsApp...
В
Взаимоотношения
13.03.2020
Избегайте обидных фраз во время ссор между супругами: советы психологов...
К
Компьютеры-и-электроника
01.09.2020
Как подключиться к прокси–серверу: шаг за шагом руководство?...
К
Компьютеры-и-электроника
11.11.2020
Легкий способ - как скопировать музыку с CD в формате MP3...
К
Компьютеры-и-электроника
17.06.2022
Как установить TortoiseSVN и произвести свои первые изменения в репозитарии...
К
Компьютеры-и-электроника
19.09.2020
Как распечатать Google Календарь...
Новые ответы от MOGZ: Информатика
УмНяша01
23.10.2022
Вычисли значение математического выражения в MS Excel: (97+102)−2(79:(5+19)). (ответ округли до сотых)...
zelim7
22.03.2023
Массив из 10 элементов заполнить случайными числами до 10. найти на каком месте стоит число 7...
begimot81
12.06.2020
Даны имена трех файлов. запиши маску, по которой можно выбрать все эти файлы: text.bmp otext.jpg protextov.png...
PolinaSlesareva
22.01.2023
Рисунок закодирован с палитрой 32 цветов сколько байт занимает информация о палитре...
elizavetamilas
12.10.2022
Написать программу построения указанной цветной фигуры(паскаль) ! завтра экзамен...
Guguguguguguguguy
27.12.2020
Дана матрица l(3,3), найти и вывести номера строк., элементы которых одинаковы. вывести матрицу l по строкам....
Zzzzzzzzz1111
27.12.2020
Дана матрица а(n,m). отпечатать номера только тех строк, элементы которых имеют значения, и число таких строк....
vashchilkophoto
11.06.2021
1.выполните сложение.а) 10000011102+11001102 б) 100010012+10101012 в) 1110001112+10000012 г)110110112+2916 д)458+8110 е)11100112+ff16 2.расположить числа в порядке возрастания.100012,...
mariakochmar
04.09.2022
Решите ребус (+фото) _ _ _ _ о _ _ _ _ В ответе запишите только одно слово....
sofiazahhа
13.06.2022
выполните трассировочную таблицу выполнения данной программы...
MOGZ ответил
Один раз в 3 года на каждый квадратный метр виноградника вносят 3 кг перегноя ....
Проверить! я правильно написала? если что добавьте или исправьте! this summer holidays...
Длина=25м ширина=12м высота=? и объём=2400м3 какая форму на нахождение высоты...
Выпиши из текста слов с одинаковым суффиксом и тут же страусята визжат как поросята.ах,жалко,жалко,жалко...
Начерти фигуру,площпдь которой равна 17 кв.см...
Решить 100 ! серединный перпендикуляр к стороне вс треугольника авс пересекает сторону...
Машина выехала из пункта а в пункт в . за два часа машина проехала 120 км . машине...
1,5% от 38 12,5% от 25 42,3% от 2 13% от 17/69 21% от 5/14 12% от 110% от 36 34,5%...
Маленькое четверостишие о белгороде, тип того, я живу всамом лучшем месте, я люблю...
Яне могу найти предложения с обстоятельством подлежашим сказуемом и дополнением...
Полный доступ к MOGZ
Живи умнее Безлимитный доступ к MOGZ
Оформи подписку
О НАС
О нас
Блог
Условия пользования
Авторское право
Политика конфиденциальности
Предпочтения cookie-файлов
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
App
Вход
Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ
s1, s2: string;
i: integer;
done: boolean;
c: char;
function IsLetter(c: char): boolean;
begin
IsLetter := ((c >= 'a') and (c <= 'z')) or ((c >= 'A') and (c <= 'Z'));
end;
function UpperCase(c: char): char;
begin
if (c >= 'a') and (c <= 'z') then
UpperCase := Chr(Ord(c) - Ord('a') + Ord('A'))
else
UpperCase := c;
end;
begin
used := [];
readln(s1);
readln(s2);
for i := 1 to length(s1) do
if (IsLetter(s1[i])) then
include(used, UpperCase(s1[i]));
for i := 1 to length(s2) do
if (IsLetter(s2[i])) then
include(used, UpperCase(s2[i]));
done := False;
for c := 'A' to 'Z' do
if not (c in used) then
begin
done := True;
write(c);
end;
if not done then
write(0);
writeln;
end.