Форум программистов, компьютерный форум, киберфорум
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).
Супер-модератор
6111 / 2851 / 1299
Регистрация: 04.03.2013
Сообщений: 5,740
Записей в блоге: 1
28.10.2014, 12:23 0

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

28.10.2014, 12:23. Показов 549. Ответов 1
Метки (Все метки)

Ответ

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
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
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
28.10.2014, 12:23
Готовые ответы и решения:

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

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

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

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

1
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 столбцов. Создать новый...

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2023, CyberForum.ru