Вход
Регистрация
Спроси Mozg AI
М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
.....больше.....
..меньше..
alina97531
20.02.2022 15:06 •
Информатика
Scratch меняет фон 3 раза алгоритм
👇
Увидеть ответ
Открыть все ответы
Ответ:
Davidggg
20.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
20.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 оценок)
Это интересно:
О
Образование-и-коммуникации
22.08.2020
Как написать миф: вдохновляющая сила древних легенд...
В
Взаимоотношения
26.10.2021
Мы все должны уважать и почитать своих родителей. Но как это сделать?...
К
Компьютеры-и-электроника
14.05.2023
Как создать свою видеоигру с нуля: от идеи до релиза...
31.05.2021
Как перестать бояться быть счастливым: 7 советов для изменения мышления...
16.02.2023
Как расширить границы разума: несколько простых способов...
С
Стиль-и-уход-за-собой
18.02.2021
Как избавиться от темных кругов под глазами: советы от экспертов...
С
Стиль-и-уход-за-собой
26.01.2020
Как отчистить сандалии Rainbow...
С
Стиль-и-уход-за-собой
28.02.2021
Как завивать волосы в кудри: простые шаги и полезные советы...
Д
Дом-и-сад
08.06.2022
Как почистить LEGO: простые способы, которые помогут сохранить блестящую внешность игрушек...
Т
Транспорт
18.02.2022
Как диагностировать автомобильную помпу...
Новые ответы от MOGZ: Информатика
Софамимими
31.10.2020
Паскаль. Известна численность каждого из 40 классов школы. Сколько классов, в которых учатся меньше 25 учеников...
Vova89898
21.11.2022
подсчитать количество дней со дня своего рождения...
ksu2407
16.08.2021
Сколько существует в коде морзе различных последовательностей из точек и тире, длина которых равна 8 символов?...
ulianadmytryk1
16.08.2021
Сколько существует в коде морзе различных последовательностей из точек и тире, длина которых равна 8 символов?...
Щплкуовощлл
24.08.2021
Сколько существует в коде морзе различных последовательностей из точек и тире, длина которых равна 8 символов?...
Дошик58694
07.08.2021
Языки (Pascal, JS, C+). Задание: Нужно чтобы программа считала разность 550 и 5 до того момента, пока ответ не станет отрицательным. При этом вывод должен выглядеть как: 550-5=545...
FHN2017
24.02.2023
Что общего между гипертекстом и гипермедийными технологиями?...
melek1309
26.10.2020
Який алгоритм містить в собі одну або більше умов, і виконується в залежності від цих умов ...
vershinindaniil1
04.07.2020
Какой тип цифровых носителей удобнее использовать? Может лучше использовать электронную почту? Запиши свои мысли....
vladimirshmele1
13.02.2023
Записать рассуждение в логической символике, обосновать выбор логических связок: Хомяк добрый, если хозяин его вкусно кормит. Хомяка вкусно кормят, только если у хозяина есть деньги....
MOGZ ответил
Продолжи определение Относительное движение - это Атмосферное давление это- ...
самолет на высоте 2 км,где его альтиметр показывает давление 74,648 па.до какой...
Охарактеризуйте пути возникновения паронимов: а) случайное созвучие разнокоренных...
А) 4(х-3)=х+5 б) 3,5х+2,5 ‐ =0,5х4 7...
Laula is busy at the moment. She her student s homwork check checks is checking...
Менде басқа жоқ көбірек бере алмайм кешіріндер! Былары қолгап шебері Қонақбаев...
Знайти площу описаного кола навколо трикутника зі сторонами 3,4 і 5 см...
Task 3. Put the words in order to make a correct sentence. 1. You / not / hospital....
Отметь точки на координатной плоскости. Соедини эти точки по порядку: 1со 2; 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.