Замена чисел в массиве на буквы - Pascal

  1. Есть массив с типом longint, как заменить в этом массиве определенное число буквой? (например все числа 1 заменить буквой а, все числа 13 буквой д)


textual

Код к задаче: «Замена чисел в массиве на буквы - Pascal»

var
    n, cnt :longint;
    a :array[1 .. 10000] of longint;
 
function IsPrime(x :longint) :boolean;
var p :longint;
begin
 
    IsPrime := true;
    p := 2;
    while (p * p <= x) do begin
        if (x mod p = 0) then
            IsPrime := false;
        p := p + 1;
    end;
    
end;
 
procedure rec(x, last :longint);
var i :longint;
begin
    if (x = 0) then begin
        for i := 1 to cnt do
            write(a[i], ' ');
        writeln;
        exit();
    end;
    
    if cnt < 10 then        { <-- здесь условие на количество слагаемых }
    for i := last to x do   { <-- цикл разложения числа на слагаемые }
        if (IsPrime(i)) then begin
            inc(cnt);
            a[cnt] := i;
            rec(x - i, i);
            dec(cnt);
        end;
    for i:=1 to n do       { <-- замена определенных чисел на буквы }
        case a[i] of
            2:write('а',' ');
            3:write('д',' ');
            else write(a[i],' ');
end;
end;
 
begin
    readln(n);
    rec(n, 2);
end.

СДЕЛАЙТЕ РЕПОСТ

11   голосов, оценка 4.091 из 5



Похожие ответы
  1. Помогите написать программу: В массиве из 10 целых чисел подсчитать сумму элементов более чем в 2 рах превышающих минимальный.

  1. Описать процедуру, записывающую в переменную X минимальное из значений X и Y, а в переменную Y — максимальное из этих значений. Используя четыре вызова этой процедуры, найти минимальное и максимальное из данных чисел A, B,C, D. Заранее спасибо.

  1. Напишите программу, которая выводит в столбец произведения чисел а = 143, b = 777 и чисел 1, 2, 3, ... 9. Результаты решения этой задачи могут удивить и озадачить. Тысячелетиями человечество, выполняя различные вычисления, находило среди чисел и результатов операций с ними интересные закономерности. Некоторым числам, например, 3, 7, 13, 666 и т. п., придавалось мистическое значение. В наше время, имея доступ к компьютеру, можно целенаправленно заниматься поиском различных «фокусов» с числами. Как правило, такой поиск требует значительных переборов вариантов и по силам только компьютеру.

  1. Дано множество целых чисел, выделить: 1) Множество чисел кратных 3; 2) Множество чисел кратных 4; 3) Множество чисел кратных 3 и 4

  1. Водится 3 числа, лежащих от -100 до 100. Найти их сумму и количество отрицательных.

  1. Дано A(6.6) Двумерная матрица из этой матрицы надо найти минимальную сумму параллельным побочной диагонали.Добавлено через 2 минуты

  1. Дано натуральное число М и целочисленный массив А[1..M]. Сосчитать и вывести количество различных чисел в массиве.Добавлено через 1 минуту помогите пож-та

  1. Пользователь вводит небольшой текст(хватит и около 200-250 символов), нужно вместо пробела вставить запятую и пробел( вместо " " , нужно ", "