Вход
Регистрация
Спроси Mozg AI
М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
.....больше.....
..меньше..
CasDavis
05.04.2021 03:33 •
Информатика
Вычислить значения функции по информатике
👇
Увидеть ответ
Открыть все ответы
Ответ:
Davidggg
05.04.2021
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
05.04.2021
//написано на си/си++
#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 оценок)
Это интересно:
С
Стиль-и-уход-за-собой
03.12.2020
Безопасность в городе: как защитить себя от хулиганов?...
Д
Дом-и-сад
21.02.2022
Как выращивать тыкву зимних сортов: советы и рекомендации...
К
Кулинария-и-гостеприимство
27.12.2021
Как готовить морского окуня: секреты профессионалов...
П
Питомцы-и-животные
07.12.2022
Как приучить кошку ходить в туалет на унитаз...
Т
Транспорт
21.04.2022
Как стать настоящим мастером вождения в стиле Дзен...
К
Компьютеры-и-электроника
15.02.2023
Как отключить Безопасный поиск в Google на Android: Простой подход для получения наилучшего опыта поиска...
С
Стиль-и-уход-за-собой
19.01.2021
Как сделать помаду для волос: рецепты, полезные советы и ошибки, которые нужно избежать...
Х
Хобби-и-рукоделие
12.09.2022
Как создать эффективное водяное колесо для производства энергии...
Д
Дом-и-сад
09.06.2023
Как чистить белую лакированную кожу: инструкция для безукоризненного образа...
Х
Хобби-и-рукоделие
12.12.2021
Как научиться простым карточным фокусам...
Новые ответы от MOGZ: Информатика
hmrl123
22.08.2021
Найти наибольшее из трёх чисел и уменьшить его на 5( в паскаль)...
WiBBaki
04.03.2020
Практическая часть. нужно составить таблицу истинности...
ФионаА
22.01.2023
Составить программу в pascal abc. ...
shumilovakate
04.05.2021
Напишите аннотацию на урок информатике . тема кочевники прикубанья . вот взятые мной темы- кубанская ногайская орда , сераскир. переселение на днепр , смерть джанмабет-бея...
shkliarchuk03
16.02.2022
Вопрос жизни и смерти нужно составить программу в паскале 16 выражение...
zhjdjq2005
08.09.2020
Написать программы в pascal abc....
bershteindanik
04.05.2023
20 вставка слова задана сторона слов d; слово - это последовательность символов, не содержащая пробела решите данную в паскаль и с++ ( или хотя бы в чем то одном)...
ArtemFediroolosb
28.11.2020
20 часть строки дана строка s и 2 слова из неё решить или в паскаль или в c++(желательно конечно и там и...
cerf1709
01.05.2020
Сформировать новый массив b(n) элементами которого является сумма цифр элементов a(n) visual basic 6.0...
нин1231
21.08.2021
Составить программу даны 2 числа если первое число болше 2 то его увеличить в 2 раза иначе второе число увеличь в 2 раза...
MOGZ ответил
Написать слова: ненастье несчастье негодовать невзлюбить молодежь на станции...
6. назовите город, где в основном был сформирован отряд служилых людей...
Втреугольнике авс сторона вс=4 см, угол =25 градусов, угол с=40градусов....
Составить 5 предложений со словом арбуз...
Вкувшине было 1 1/5 л сока . его разлили в стаканы,каждый из которых вмещает...
Чтобы нарисовать прямоугольник необходимо...
Нил. 1)нил-это горная или равнинная река? 2)к бассейну какой реки (озера,моря)...
Напиши мини на темуна одну из тем моя семья,моя рлдословная.мама наташа...
Катушку какой индуктивности надо включит в колебательный контур, чтобы...
Выберите утверждение, характеризующие серу: а) серебристо- белое вещество,...
Полный доступ к 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.