В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История

подумай как Какие примеры национальной борьбы народов мира ты можешь привезти Что ты знаешь о казахский национальной борьбе Как ты думаешь Какова связь между борьбой сумму и соревнованиями робосумо​


подумай как Какие примеры национальной борьбы народов мира ты можешь привезти Что ты знаешь о казахс

Показать ответ
Ответ:
Alevtinka28
Alevtinka28
26.05.2020 04:07
// 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 оценок)
Ответ:
Foxmem
Foxmem
05.02.2023 10:59
#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 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота