Вход
Регистрация
Спроси Mozg AI
М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
.....больше.....
..меньше..
ailyn2111
03.12.2022 20:12 •
Информатика
Дано ціле число n .Розробіть програму , за до якої це число збільшуеться на 7, якщо воно більше 15, і зменьшується на 5, якщо воно менше або дорівнює 15 . (Зробити на Python)
👇
Увидеть ответ
Открыть все ответы
Ответ:
Davidggg
03.12.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
03.12.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 оценок)
Это интересно:
И
Искусство-и-развлечения
27.10.2022
Как преуспеть в стендапе: советы от профессионалов...
С
Стиль-и-уход-за-собой
03.07.2021
Как сделать сенегальские жгуты: шаг за шагом руководство...
О
Образование-и-коммуникации
04.09.2022
Как правильно закончить официальное письмо: советы экспертов...
С
Стиль-и-уход-за-собой
22.03.2020
Хранение духов: как сохранить свой любимый аромат на долгое время...
К
Компьютеры-и-электроника
16.05.2022
Как использовать команду установки воспроизведения атрибутов файлов для обнаружения вирусов?...
С
Семейная-жизнь
11.06.2020
Как прекратить воевать со своим братом или сестрой...
Х
Хобби-и-рукоделие
06.06.2021
Как поместить яйцо в бутылку: советы и хитрости...
Ф
Финансы-и-бизнес
04.06.2023
Как использовать дебетовую карту PayPal: подробная инструкция...
И
Искусство-и-развлечения
31.12.2021
Секреты создания поддельного беременного живота...
18.02.2020
10 методов, которые помогут забыть плохое воспоминание...
Новые ответы от MOGZ: Информатика
котяточка
31.10.2022
Как обозначается кол-во строк в информатике...
KINGAsyaKING
17.07.2022
Напишите программу, которая заполняет массив из N элементов случайными целыми числами в диапазоне [ A , B ] и определяет количество чётных и количество нечётных элементов...
dghakdkc
04.05.2021
Расставь в верном порядке. внимательно изучить условие; выделить высказывания и обозначить их латинскими буквами; записать условие задачи на языке алгебры логики; составить...
lfhnvjk2007
22.05.2020
PYTHON Дана непустая последовательность целых чисел, оканчивающаяся числом 100. Необходимо определить, есть ли в последовательности число 77. РЕШЕНИЕ: a = int(input( )) count...
участник78
22.02.2021
Выполните практическую работу № 12 стр. 154, задания с 1 по 3 в учебнике, используя заготовки: Природа Шляпа...
дарюша13
30.12.2022
Самая дорогая экипировка в кс го...
Vadim200129
02.03.2022
В каких случаях применяют специализированные программы защиты от компьютерных вирусов?...
Toto112
03.06.2020
1) У исполнителя Делитель две команды, которым присвоены номера: 1. раздели на 4 2. вычти 1 Исполнитель работает только с натуральными числами. Составьте алгоритм получения...
farita1
20.09.2021
Приведите 2-3 примера носителей информации из литературных произведений. Например Раскольников позвонил: Звонок брякнул слабо, как будто был сделан из жести, а не из меди...
mlilit82
02.11.2022
Перевести число 5237 из 8-чной системы счисления в 10-ную. с решением....
MOGZ ответил
Что такое молекулярная масса? ( коротко и ясно)...
Внаши дни грозную речь называют филипинской, как возникло это слово? !...
Разобрать слова по составу; прибегут,делаю, смотреть, думал, ходила, посадят,...
Кратко перескажи содержание летописного сказания. в лето 922. князь владимир...
Водном куске 7 метров а в другом 5м второй кусок на 400 рублей дешевле...
Найдите множество а×в и изобразите его элементы в прямоугольной системе...
Где находится рецепторы болевого анализатора? изобразите схему. полезна...
Вчетверг в кафе было 23 посетителя, что в 3 раза меньше, чем в воскресенье....
Найлите длину ребра куба с ообъе 27 см,125 см...
Подберите к однородные члены мне предложения обобщение слова.запишите...
Полный доступ к 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.