М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
Cherep666
Cherep666
15.02.2020 05:11 •  Информатика

Впаскаль. дана последовательность чисел 1,2,3,4,. напишите программу, которая вычисляет количество чисел кратных 6. , нужно!

👇
Ответ:
Bronin2002
Bronin2002
15.02.2020

5 4 6  :0 73 783 447 474

4,5(22 оценок)
Открыть все ответы
Ответ:
arioom
arioom
15.02.2020
// 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
4,4(69 оценок)
Ответ:
seregalock
seregalock
15.02.2020
#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;
}

Пример работы программы:
4,5(64 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ