Pascal ABC

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Другие темы раздела
Pascal ABC Найти сумму элементов матрицы, у которых сумма делителей меньше данного числа Х https://www.cyberforum.ru/ pascalabc/ thread1286453.html Дана прямоугольная таблица, которая содержит не более 10 строк и не более 10 столбцов. Найти сумму элементов, у которых сумма делителей меньше данного числа Х.	Однажды Петя играв во дворе нашел кубик Pascal ABC Однажды Петя играв во дворе нашел кубик. Кубик долгое время находился на улице и в связи с этим потерял былую красоту. Мальчик решил вернуть его яркие цвета и тем самым покрасил кубик яркой зеленой...
Pascal ABC Вычислить 2^64– 1, в результате сохранить все цифры Составить программу вычисления числа 264– 1, в результате сохранить все цифры. https://www.cyberforum.ru/ pascalabc/ thread1286338.html	Pascal ABC Вычисление значения фyнкции по введённому значению аргумента https://www.cyberforum.ru/ pascalabc/ thread1286221.html Написать программу, которая по введённому значению аргумента вычисляет значение функции, заданной в виде графика. Параметр R вводится с клавиатуры.
Pascal ABC Найти произведение элементов массива, кратных трем Имеется массив А из N произвольных чисел A (N) среди которых есть положительные, отрицательные и равные нулю. Найти произведение элементов кратных трем. Например если А={2,4,9,2,6,-3,0} результат:...	Pascal ABC Печать суммы (или произведения) N элементов бесконечного числового ряда Составить программу вычисления и выдачи на печать суммы (или произведения) N элементов бесконечного числового ряда y=-243+81-27+9... https://www.cyberforum.ru/ pascalabc/ thread1286212.html
Pascal ABC Составить блок-схему алгоритма печати всех чисел кратных 5 от заданного до 1 https://www.cyberforum.ru/ pascalabc/ thread1286191.html 2. Составить блок-схему алгоритма печати всех чисел кратных 5 от заданного до 1.Помогите P.S.нужно сначала написать текст программы ,а потом изобразить его на блок схеме. Вот мое исправьте и...	Pascal ABC Найти матрицу и сумму кубов элементов 2 столбца нужно написать прогу по заданию в abc pascal
Pascal ABC Определить, правда ли что имеется хотя бы одно число из заданных не равное другим? Составить блок схему и программу. Имеется четыре A, B, C, D производных числа.ЭВМ должна ответить на вопрос: Правда ли что имеется хотя бы одно число не равное другим? Ответ ЭВМ должна вывести в... https://www.cyberforum.ru/ pascalabc/ thread1286164.html	Pascal ABC Удалить все символы 'а' из слов заданной длины Помогите написать прогу. Задание: Удалить все символы 'а' из слов, длина которых равна выбранной. Заранее благодарен) https://www.cyberforum.ru/ pascalabc/ thread1286088.html
Pascal ABC Вычислить сумму элементов четных столбцов двумерного массива вычислить сумму элементов четных столбцов двумерного массива RX (5;5) ! Вводить по строкам! Прошу помощи )	Pascal ABC Вычислить точное значение (n!) https://www.cyberforum.ru/ pascalabc/ thread1285899.html Всем привет =). Помогите пожалуйста с задачей, не могу разобраться с длинной арифметикой... (Факториал) Вычислить точное значение (n!)! (n >= 3).

ildwine

Супер-модератор

6111 / 2851 / 1299

Регистрация: 04.03.2013

Сообщений: 5,740

Записей в блоге: 1

28.10.2014, 12:23

Создать новый массив, элементами которого являются суммы цифр каждого числа старого массива - Pascal ABC - Ответ 6778515

28.10.2014, 12:23. Показов 549. Ответов 1

Метки (Все метки)

Ответ

Pascal

var
  a, b : array[1..10, 1..10] of integer;  
  i, j, n, m : integer;
 
function sumOfDigits(z : integer) : integer;
var x : integer;
begin
  x := 0;  
  while z  <> 0 do
  begin
    x := x + z mod 10;
    z := z div 10
  end;
  sumOfDigits := x
end;
 
BEGIN
  repeat
    write('введите размерности массива [1..10, 1..10]: ');
    readln(n, m);
    if (not (n in [1..10])) or (not (m in [1..10])) then writeln('повторите ввод')
  until (n in [1..10]) and (m in [1..10]);
  randomize;
  writeln('массив:');
  for i := 1 to n do
  begin
    for j := 1 to m do
    begin
      a[i,j] := random(1000);
      write(a[i,j]:4)
    end;
    writeln
  end;
  writeln('массив сумм цифр каждого числа:');
  for i := 1 to n do
  begin
    for j := 1 to m do
    begin
      b[i,j] := sumOfDigits(a[i,j]);
      write(b[i,j]:4)
    end;
    writeln
  end
end.

Вернуться к обсуждению:
Создать новый массив, элементами которого являются суммы цифр каждого числа старого массива Pascal ABC

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

28.10.2014, 12:23

Готовые ответы и решения:

Создать новый массив, элементами которого являются суммы цифр каждого числа старого массива
Дан одномерный массив, который содержит не более 40 целых чисел. Создать новый массив, элементами...

Создать новый массив, элементами которого являются суммы цифр каждого числа старого массива
Дан двумерный массив, который содержит не более 10 строк и не более 10 столбцов. Создать новый...

Создать новый массив элементами которого являются суммы делителей каждого числа старого исходного
Дан одномерный массив, который содержит не более 40 целых чисел. Создать новый массив элементами...

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

28.10.2014, 12:23

Помогаю со студенческими работами здесь

Создать новый массив, элементами которого являются суммы делителей каждого числа старого массива
Дан двумерный массив, который содержит не более 10 строк и не более 10 столбцов. Создать новый...

Создать новый массив, элементами которого являются суммы делителей каждого числа старого массива
Дан одномерный массив, который содержит не более 40 целых чисел. Создать новый массив, элементами...

Создать новый массив, элементами которого являются суммы первой и последней цифры каждого числа старого массива
Дан двумерный массив, который содержит не более 10 строк и не более 10 столбцов. Создать новый...

Создать новый массив, элементами которого являются суммы первой и последней цифры каждого числа исходного
Дан двумерный массив, который содержит не более 10 строк и не более 10 столбцов. Создать новый...

Создать массив, элементами которого являются суммы цифр каждого элемента исходного массива
Дан одномерный массив, который содержит не более 40 целых чисел. Создать новый массив, элементами...

Создать новый массив, элементами которого являются абсолютная величина каждого числа старого массива
Дан двумерный массив, который содержит не более 10 строк и не более 10 столбцов. Создать новый...

Наверх