Вход
Регистрация
Спроси Mozg AI
М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
.....больше.....
..меньше..
andreevaa995
18.02.2023 03:51 •
Информатика
Підготувати розповідь за темою як я використовую електронну пошту у навчанні 5-10 речень
👇
Увидеть ответ
Открыть все ответы
Ответ:
Davidggg
18.02.2023
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
18.02.2023
//написано на си/си++
#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 оценок)
Это интересно:
К
Компьютеры-и-электроника
11.10.2021
Как избавиться от отображения в списке «Рекомендуемые друзья» на Facebook?...
С
Стиль-и-уход-за-собой
11.10.2021
Как сделать татуировку с помощью маркера: безболезненный способ...
П
Питомцы-и-животные
13.06.2020
Как сделать когтеточку для котенка: простые идеи, которые помогут вам сэкономить деньги и сделать вашего котенка счастливым...
К
Компьютеры-и-электроника
09.12.2020
Как сбросить иконку голосовой почты на телефоне Android...
К
Компьютеры-и-электроника
08.05.2023
Как убить Херобрина в Майнкрафт: практические советы от игроков...
Д
Дом-и-сад
09.06.2020
Как отмыть губку: простые и эффективные способы...
К
Кулинария-и-гостеприимство
09.04.2020
Сэндвич с беконом: легкий рецепт на каждый день...
К
Компьютеры-и-электроника
16.04.2022
Как играть онлайн в Words with Friends...
К
Компьютеры-и-электроника
11.09.2020
Как сделать GIF анимацию из видео в Photoshop CS5: шаг за шагом...
С
Стиль-и-уход-за-собой
27.10.2021
10 простых способов быть привлекательной...
Новые ответы от MOGZ: Информатика
макар95
06.06.2021
Язык python какое число будет выведено на экран после выполнения этого фрагмента программы? print ( i, end= ) for i in range(2,1): print ( i, end= )...
Вэшоу
20.09.2022
Написать программу вывода на экран количество чисел кратных 3, окончание ввода ноль (0)...
novoselova959
01.02.2022
Необходимо найти значение следующего выражения: y=11a−(x+20). Словесно-формульным алгоритм решения этой задачи может быть записан в следующем виде: Ввести значения...
SuPeRGaMeRDGRST
14.12.2021
Решите информатику только пишите правду Браузер – это программа для ... A создания баз данных веб-страниц C создания мультимедийных презентаций D Создания веб-страниц...
Janiya1404
18.03.2022
Как установить антивирусник на компьютере?...
Baidu
19.03.2023
упростить логическое выражение...
Хафиза1
13.03.2022
Братаны скажите у меня игра DayZ потянет на минималках хотя бы ? Мой пк: intel core i3 2100 Nvidia gtx 650 1gb 8gb озу 4500 Гб жёсткий скажите мне точно! можно будет...
vkovbasa99
19.04.2021
ДО ТЬ ЗА 2 КЛАС ИНФОРМАТИКА ЛЕГКОТНЯ ДО ТЬ ЯК ПРАВЕЛЬНО ? Чим формула відрізняється від інших даних ЕТ?...
bomixov
06.02.2022
Выделите полный квадрат: x^2-2x-15 x^2+6-16 x^2-8x+12 x^2-4x-12 x^2-8x-9 x^2+12x+11 x^2-4x-60 решите уравнение: 4x^2-12x+5=0 x^2+6x+5=0 x^3+4x^2+3x+0...
hat345oxt288
06.02.2022
Как сделать уравнение (1908+r): 25=80...
MOGZ ответил
Решите ) 2 3/7: 17/30=? заранее )*...
А) в квадратных метрах: 19 а 25 га 3а 59 м2 б)в арах: 38га 3га...
Три землекопа за 2 часа выкопали 6 м канавы. за какое время 7...
Фонетический разбор слова ясным(анализ букв) и морфологический...
Автобусы с автостанции уходят строго по расписанию каждые 30...
Решить уравнение 1 2 + = -1 lg (3x - 2) lg (3x - 2) + lg 0,01...
Довжина шкільного коридору 24м, а ширина дорівнює 1-й шосьтій...
За сутки человек делает вдох-выдох приблизительно 22500 раз....
Составить по 4 предложения со словами песчаный песочный...
Определите какие из выделенных слов являются наречиями, а какие-краткими...
Полный доступ к 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.