Каждый элемент, делящийся на 3, заменить на сумму цифр этого числа

@Лорхен · Регистрация: 20.09.2015

Студворк — интернет-сервис помощи студентам

Дан массив a(n). Каждый элемент, делящийся на 3, заменить на сумму цифр этого числа.
Не могу понять, где ошибка, почему так?

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
var a: array[1..1000] of integer;
  i,k,n: integer;
      begin
    readln(n);
 for i := 1 to n do
  begin
    a[i] := random(100);
    write(a[i], ' ');
  end;
   for i := 1 to n do
    begin
     if a[i] mod 3 = 0 then
      begin
          while a[i]>0  do
           a[i] mod 10;
         k:=a[i] mod 10 + k;
         end;
      swap (a[i]; k)
    end;
  writeln;
  for i := 1 to n do    
    write(a[i], ' ');
end.

ФедосеевПавел · 20.09.2015, 13:43

Program1.pas(15,6): Встречено 'mod', а ожидалось ';'
Становишься на строку 15 и видишь

Pascal
1
a[i] mod 10;

Это непонятно что делающая строка. Скорее всего пропущено присвоение.

Добавлено через 6 минут

Pascal
1
2
3
4
5
6
7
8
9
10
    if a[i] mod 3 = 0 then
    begin
      k := 0;
      while a[i] > 0 do
      begin
        k := a[i] mod 10 + k;
        a[i] := a[i] div 10;
      end;
      a[i] := k;
    end;

@Лорхен · 20.09.2015, 13:49 **[ТС]**

ФедосеевПавел, тогда a[i] := a[i] mod 10; будет логичнее заменить на a[i] := a[i] div 10;
Спасибо за помощь.

ФедосеевПавел · 20.09.2015, 13:58

Да, совершенно верно. Я чуть позже исправил, но было поздно для меня, но полезно для вас.

@volvo · 21.09.2015, 14:09

PABC.NET решает эту задачу в одну строку:

Pascal
1
2
3
4
5
6
7
8
uses arrays;
begin
  var a : array of integer := CreateRandomIntegerArray(ReadInteger(), 0, 99); // инициализация массива
  a.Writeln(' '); // вывод исходного массива
  // следующая строка - собственно решение
  a := a.Select(i -> (i mod 3 = 0) ? IntToStr(i).ToCharArray().Sum(ch -> StrToInt(ch)) : i).ToArray();
  a.Writeln(' '); // вывод полученного массива
end.

@Puporev · 21.09.2015, 14:16

Не по теме:

Сообщение от volvo

PABC.NET решает эту задачу в одну строку:

При этом в голове 0.

@volvo · 21.09.2015, 16:15

Не по теме:

Сообщение от Puporev

При этом в голове 0.

Мне совершенно все равно, что там у кого в голове. Тем более, что если у него 0, то и при разжевывании ему в стиле Турбо-Паскаля, с подробнейшими комментариями, ноль как был, так и останется. Я пишу программы для тех, у кого не 0 в голове, для тех, кто хочет и пытается разобраться в возможностях компилятора/фреймворка. Нулеголовые мне неинтересны.

Новые блоги и статьи Все статьи Все блоги /
Thinkpad X220 Tablet — это лучший бюджетный ноутбук для учёбы, точка. Programma_Boinc 23.12.2025 Рецензия / Мнение/ Перевод Нашел на реддите интересную статью под названием The Thinkpad X220 Tablet is the best budget school laptop period . Ниже её машинный перевод. Thinkpad X220 Tablet —. . .	PhpStorm 2025.3: WSL Terminal всегда стартует в ~ and_y87 14.12.2025 PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .	Как объединить две одинаковые БД Access с разными данными VikBal 11.12.2025 Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.	Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro	Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .
От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .	Поиск "дружественных имён" СОМ портов Argus19 22.11.2025 Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .	Сколько Государство потратило денег на меня, обеспечивая инсулином. Programma_Boinc 20.11.2025 Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .	Ломающие изменения в C#.NStar Alpha Etyuhibosecyu 20.11.2025 Уже можно не только тестировать, но и пользоваться C#. NStar - писать оконные приложения, содержащие надписи, кнопки, текстовые поля и даже изображения, например, моя игра "Три в ряд" написана на этом. . .	Мысли в слух kumehtar 18.11.2025 Кстати, совсем недавно имел разговор на тему медитаций с людьми. И обнаружил, что они вообще не понимают что такое медитация и зачем она нужна. Самые базовые вещи. Для них это - когда просто люди. . .

@Лорхен 26 / 0 / 0 Регистрация: 20.09.2015 Сообщений: 2
	20.09.2015, 13:49 [ТС]
	ФедосеевПавел, тогда a[i] := a[i] mod 10; будет логичнее заменить на a[i] := a[i] div 10; Спасибо за помощь. 0

ФедосеевПавел Модератор 8645 / 4480 / 1669 Регистрация: 01.02.2015 Сообщений: 13,888 Записей в блоге: 11
	20.09.2015, 13:58
	Да, совершенно верно. Я чуть позже исправил, но было поздно для меня, но полезно для вас. 0

Каждый элемент, делящийся на 3, заменить на сумму цифр этого числа

Решение