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

Даны три последовательности чисел: а1, а2, а8; b1, b2, b8; с1, с2 , с8. составить новую последовательность, в которой чередовались бы числа всех трех последовательностей, т.е. d1 = a1; d2=b1; d3 = c1; d4 = a2; d5 = b2; d6 = c2. паскаль.

👇
Ответ:
69Unicorn69
69Unicorn69
25.10.2021

#include <iostream>

#include <vector>

#include <array>

#include <iterator>

#include <algorithm>


int main()

{

const size_t size_array = 8;

std::array<int, size_array>

 posled1{1, 2, 3, 4, 5, 6, 7, 8},

 posled2{9, 10, 11, 12, 13, 14, 15, 16},

 posled3{17, 18, 19, 20, 21, 22, 23, 24};


std::vector<int> posled4;

posled4.reserve(size_array*3);


for(int i = 0; i < size_array; i++)

{

 posled4.push_back(posled1[i]);

 posled4.push_back(posled2[i]);

 posled4.push_back(posled3[i]);

}


std::copy(posled4.begin(), posled4.end(), std::ostream_iterator<int>(std::cout, " "));

std::cout << std::endl;

}


Даны три последовательности чисел: а1, а2, а8; b1, b2, b8; с1, с2 , с8. составить новую последовател
4,8(92 оценок)
Открыть все ответы
Ответ:
vashchilkophoto
vashchilkophoto
25.10.2021
Судя, по ключевым словам надо написать программу на языке Pascal с использованием цикла с потусловием. Алгоритм может быть такой:
1. Создадим массив для хранения информации о количестве встретившихся цифр во введенном числе.
2. Ввод самого числа, далее в цикле находим остаток от деления на 10 и увеличиваем значение элемента массива с индексом равным получившемуся остатку на 1. Делим число нацело на десять. Повторяем пока число не равно 0.
3. Выводим результат. В массиве индекс элемента указывает на цифру числа, а значение элемента на количество этой цифры в числе. 

//РасаlABC.net v3.1

var a:array[0..9]of integer;

n,i,m: integer;

begin

  readln(n);

  repeat

    m:=n mod 10;

    inc(a[m]);

    n:=n div 10;

  until n<=0;

  for i := 0 to 9 do begin

    if a[i]>1 then writeln('Цифра:',i,' количество:', a[i]);

  end;

end.

Тестовый прогон:

1112333

Цифра:1 количество:3

Цифра:3 количество:3

4,8(33 оценок)
Ответ:
sasha2005k1
sasha2005k1
25.10.2021
Var
   C:array[0..9] of byte;
   A:longint;
   i:byte;
Begin
For i:= 0 to 9 do
    C[i]:=0;
Repeat
Write('Введите натуральное число: ');ReadLn(A);
Until A>0;
i:=Trunc(Ln(A)/Ln(10));
if frac(Ln(A)/Ln(10)) > 0 then i:=i+1;
For i:= 1 to i do
    Begin
    C[A mod 10]:=C[A mod 10] +1;
    A:=A div 10
    End;
For i:= 0 to 9 do
    if C[i]>1 then A:=1;
if A = 1 then
   Begin
   Write('Повторяются: ');
   For i:= 0 to 9 do
       if C[i] > 1 then
          Write(i,' ')
   End
End.

Пример работы программы:

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