Вход
Регистрация
Спроси Mozg AI
М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
.....больше.....
..меньше..
Svetka72RUS
16.01.2023 09:17 •
Информатика
Работа с программой паскаль
👇
Увидеть ответ
Открыть все ответы
Ответ:
Davidggg
16.01.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
16.01.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 оценок)
Это интересно:
С
Стиль-и-уход-за-собой
25.11.2021
Как легко и быстро растянуть обувь на каблуках?...
К
Кулинария-и-гостеприимство
30.08.2020
Как использовать конвекционную тостер-печь: настоящий гид для начинающих...
З
Здоровье
13.03.2023
10 уникальных советов о том, как помочь выздороветь близкому человеку...
Ф
Финансы-и-бизнес
13.02.2022
Как эффективно вести учет дебиторской задолженности?...
02.09.2021
Как пережить плохую оценку: навыки управления эмоциями и продуктивной работы на ошибке...
К
Компьютеры-и-электроника
20.11.2022
Как быстро установить Qt SDK на Ubuntu Linux:...
И
Искусство-и-развлечения
05.05.2022
Как сделать костюм единорога: пошаговая инструкция...
Х
Хобби-и-рукоделие
04.06.2022
Голова манекена: как сделать её самому?...
К
Компьютеры-и-электроника
14.03.2021
Как получить навык Водопад в игре Покемон Изумруд: полное руководство...
С
Стиль-и-уход-за-собой
26.01.2020
Как купаться при нехватке воды: простые советы...
Новые ответы от MOGZ: Информатика
anonim1235
26.07.2021
В программе описан одномерный целочисленный массив с индексами от 0 до 10. Ниже представлен фрагмент программы, обрабатывающей данный массив: n := 10; for i:=0 to n do begin...
MaliaM
25.01.2023
Человек положил в банк Х рублей на Y лет под Z процентов . Выдать величину вклада на каждый год ....
UlianaTir
17.05.2023
На python Электронные часы показывают время в формате h:mm:ss, то есть сначала записывается количество часов в диапазоне от 0 до 23, потом знак двоеточия, потом обязательно...
fgdh1waffeaf
19.06.2021
Дано натуральное восьмизначное число. Определите самую большую цифру в числе. ( C ++ )...
ROUSWOOD
24.04.2023
Напишите команды, которые будут отвечать за смену костюма персонажа, смену фона...
annalonina
16.05.2021
От только Создайте в Excel таблицу по образцу, приведенному ниже. Вычислите средние показатели территории и численности населения по странам. Примените функции для определения...
ulianiabelka
19.09.2020
Электронная тетрадь по информатике 8 класс...
Арменкаааа
18.04.2021
На ПИТОНЕ написать алгоритм, складывающий четные числа...
tatyanalarina2
18.10.2021
По введённым с клавиатуры коэффициентам b,c составить программу с приведенными квадратными уравнениями...
серега657
26.05.2020
Оценка, выставляемая студентам по результатам тестирования, обозначается буквами A, B, C и D. Максимальное количество 120. Если набрано 90 и более, то оценка A, если от...
MOGZ ответил
Какую роль сыграла доброта капитанской дочке в рассказе капитанская дочь...
Напишите сочинение рассуждение на тему: тарас бульба символ мужества...
Язык 2 класс тренажер страница 76 найдите среди данных слов однокоренные...
1) the lake is high above sea ride или level. 2) the uros people have...
1.. «хождение в народ» завершилось а) крестьянской революцией; б) легализацией...
Записать в порядке возрастания 2,6 2,(6) 2,66 2,6(6)...
Раскройте скобки и употребите глагол в нужном времени: past simple, past...
Впиши комбинацию клавиш которая позволяет переключатся по открытым окнам...
Учому суть судовой реформи володимира...
Чем сходны и чем отличаются по строению атомы брома с массами 79 и 81?...
Полный доступ к 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.