Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
run5555
20.09.2022 20:19 •
Информатика
Выясните, что будет, если выделить элементы оформленного маркированного списка и щёлкнуть по кнопке
Показать ответ
Ответ:
langueva1405
20.09.2022 21:35
// PascalABC.NET 3.3.5, сборка 1636 от 10.03.2018
// Внимание! Если программа не работает, обновите версию!
1)
procedure Add(a,b:integer; var r:integer);
begin
r:=a+b
end;
begin
var (x,y):=ReadInteger2('Введите два целых числа:');
var z:integer;
Add(x,y,z);
Writeln('Их сумма равна ',z)
end.
Пример
Введите два целых числа: 18 142
Их сумма равна 160
2)
function Min3(a,b,c:integer):=Min(a,Min(b,c));
begin
var (i,j,k):=ReadInteger3('Введите три целых числа:');
Writeln('Минимальное равно ',Min3(i,j,k))
end.
Пример
Введите три целых числа: 35 -4 41
Минимальное равно -4
0,0
(0 оценок)
Ответ:
oksana341
14.02.2022 15:55
#include <iostream>
#include <string>
using namespace std;
int main()
{
string S;
cin >> S;
int Mass[52];
for (int i = 0; i < 52; i++)
{
Mass[i] = 0;
}
for (int i = 0; i < S.length(); i++)
{
char c = S[i];
if (c >= 'a'&&c <= 'z')
{
Mass[(int)(c-'a')*2]++;
} else if (c >= 'A'&&c <= 'Z'){
Mass[(int)(c-'A')*2+1]++;
}
}
for (int i = 0; i < 52; i++)
{
for (int j = 0; j < Mass[i]; j++)
{
cout << (i % 2 == 0?(char)(i/2+'a'):(char)(i/2+'A'));
}
}
return 0;
}
Пример работы программы:
0,0
(0 оценок)
Популярные вопросы: Информатика
Oleganaft
10.07.2020 13:51
Перечислите основные операции над объектами векторной граффики...
kravchenko1712
25.08.2020 03:21
1.Какими командами можно сменить костюм у Спрайта?2.Для чего в скрипте используют смену костюма? 3. Для чего в программе реализующей движение спрайта,применяют команду Ждать_ секунд...
annetalovecamar
18.02.2021 15:03
Задание №3*. Нарисуй блок схему для поиска НОД. Используй все виды алгоритмов (линейный, разветвляющийся, циклический). 1) Разложим на простые множители оба числа 2) Выберем одинаковые...
akmal8606
19.04.2021 10:11
По каналам связи передана книга, содержащая 4мб мб информации. Мощность алфавита, переданной информации, составляет 64 символов. Определить количество страниц в книге, если в среднем...
LunaLovegood28
04.07.2022 20:47
Приведите 2-3 примера слов-омонимов, выражающих различные понятия ПЗ...
умнаяпсина1
07.06.2022 10:11
Целые числа имеют тип данных: boolean integer real string...
nnursejt
11.01.2020 15:39
5а,124(16) с обяснением Даю всё 35...
maksimfomin2020
02.10.2020 16:00
Что позволяет сделать область просмотра слайдов в PowerPoint? 1) Позволяет выбрать слайд. 2) Позволяет сменить место расположения слайда. 3) Позволяет добавить слайд. 4) Позволяет...
Новичок301117
07.04.2022 04:50
Pascal, составить программу с задачей! Компьютер запрашивает радиус круга и сторону квадрата. Надо определить, равные ли у них площади (ответ должен иметь вид: «Площади равные»)....
Оля2204202
16.02.2022 18:22
с информатикой Задача 1. Дано число n, затем задаются n чисел. Посчитать количество нулей среди них. Пример: 3 1 0 2 Программа должна вывести 1, тк среди n чисел встретился только...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
// Внимание! Если программа не работает, обновите версию!
1)
procedure Add(a,b:integer; var r:integer);
begin
r:=a+b
end;
begin
var (x,y):=ReadInteger2('Введите два целых числа:');
var z:integer;
Add(x,y,z);
Writeln('Их сумма равна ',z)
end.
Пример
Введите два целых числа: 18 142
Их сумма равна 160
2)
function Min3(a,b,c:integer):=Min(a,Min(b,c));
begin
var (i,j,k):=ReadInteger3('Введите три целых числа:');
Writeln('Минимальное равно ',Min3(i,j,k))
end.
Пример
Введите три целых числа: 35 -4 41
Минимальное равно -4
#include <string>
using namespace std;
int main()
{
string S;
cin >> S;
int Mass[52];
for (int i = 0; i < 52; i++)
{
Mass[i] = 0;
}
for (int i = 0; i < S.length(); i++)
{
char c = S[i];
if (c >= 'a'&&c <= 'z')
{
Mass[(int)(c-'a')*2]++;
} else if (c >= 'A'&&c <= 'Z'){
Mass[(int)(c-'A')*2+1]++;
}
}
for (int i = 0; i < 52; i++)
{
for (int j = 0; j < Mass[i]; j++)
{
cout << (i % 2 == 0?(char)(i/2+'a'):(char)(i/2+'A'));
}
}
return 0;
}
Пример работы программы: