Вход
Регистрация
Спроси Mozg AI
М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
.....больше.....
..меньше..
LimOonka
09.03.2023 14:08 •
Информатика
В книге 512 страниц. Сколько информации несет сообщение о том, что закладка лежит на 105-ой странице?
👇
Увидеть ответ
Открыть все ответы
Ответ:
Davidggg
09.03.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
09.03.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 оценок)
Это интересно:
И
Искусство-и-развлечения
14.04.2020
Как танцевать дабстеп: секреты и хитрости...
К
Кулинария-и-гостеприимство
29.07.2020
Приготовление вкусного и ароматного лимонного риса в домашних условиях...
С
Стиль-и-уход-за-собой
06.06.2023
Как делать прически с крученым валиком: советы от профессионалов...
В
Взаимоотношения
12.10.2021
Как разорвать старые отношения, если у вас уже появился новый парень...
Х
Хобби-и-рукоделие
07.03.2023
Как играть в Колонизаторов...
К
Кулинария-и-гостеприимство
04.02.2023
Как приготовить фасоль пинто: пошаговый рецепт и полезные советы...
О
Образование-и-коммуникации
17.11.2022
Как стать самым уверенным учеником в школе?...
В
Взаимоотношения
05.02.2021
Как найти себе девушку в интернете: советы от экспертов...
З
Здоровье
01.02.2021
Как стать стройным естественным путем: советы от эксперта...
К
Компьютеры-и-электроника
10.03.2023
Как сделать снимок в Windows Live Movie Maker: подробное руководство...
Новые ответы от MOGZ: Информатика
ALINAGREEN13
22.08.2022
Вычислите количество всех натуральных чисел в интервале от А до В, которые делятся на C без остатка. Input.txt: А, В, С (1 =A, B, C =10`(5) Uotput.txt: в выходном файле записывается...
dzeratigieva
13.04.2021
Скажите как нарисовать ромб в логомирах...
lennyface228
21.04.2021
Выполнить в паскале: имеется офис в форме прямоугольного параллелепипеда со сторонами a,b,c ( c-высота ). необходимо покрасить все стены в офисе, при этом известно, что одно банки...
ЬПОАСИ
03.03.2022
Составить программу, которая подсчитывает в имеющимся файле количество чисел и выводит ответ на экран и в файл output.txt...
GevorgStepanyan
03.03.2022
Досье преступников занимают 9 мб, и каждое из них имеет объем 12 страниц. на странице 48 строк по 64 символа в каждой. какого число досье?...
Viktoria235601
12.02.2023
Напишите конспект, где нужно сравнить эти языки ...
медвежонок41
21.12.2021
Тактильную информацию человек получает посредством органов решение много...
vsjhffdsg
02.09.2020
Посчитай на языке Паскаль 1 задача var s,k: integer; begin s = 0; for k := 3 to 7 do s = s + 6; writeln(s); end. 2 задача var a, b, n: longint; begin readln(n);...
dvaleeva45
23.10.2022
Запись на языке программирования ...
juhf
14.02.2020
1) составить программы а) у=х²√авс/2а+2в+√3а б) у=|а|+√х²+в 2) составить диалог с пользователем о введении 2х десятичных дробей и нахождение их произведений вас(х)...
MOGZ ответил
Обчисліть масову частку оксигeну у манган (iv) оксиді 15б...
Напишите эссе на языке на тему мой любимый праздник...
Решите систему урайнений x2+y2-2xy=1 x+y=3...
Переведите на каз.яз действие происходит в автобусе: -здраствуйте бабушка! -...
Какие существуют числа от 1 до 32, которые не делятся на 2 при этом делясь на...
Унас завтра впр по если я получу 2 что будет просто страшно...
Измерьте каждые угол четырехугольника,изображенного на рисунке, найдите значение...
Велосипедист проехал 54км за 3часа. какое расстояние проедет мотоциклист за...
Определите наклонение (изъявительное, повелительное или условное) в следующих...
Доказать х^2+5х+25 больше или равно 15х...
Полный доступ к 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.