Дано 16 целых чисел от 1 до 16. Определить сумму тех из них, которые являются кратными введенному числу.

[d_dima]

писать на паскале

[Stilet]

Выполнено...
4047.jpg

[d_dima]

Не работает!

[Вадим Мошев]

А где вообще вежливые слова?
По теме: всё работает, просто то число, которое вводится, уже зашито в программу. Попробуйте хоть сами разобраться, как сделать программу интерактивнее.

[Abstraction]

просто то число, которое вводится, уже зашито в программу

Добавлю: и те 16 чисел от 1 до 16 - тоже.

[d_dima]

Извините! Очень торопился. Будьте так добры, объясните что к чему!

[Вадим Мошев]

Чтобы программа принимала ваши числа, вместо n:=5 в коде, который вам написал Stilet надо написать

write('n = ');
read(n);

Если требуется ещё, чтобы программа работала с числами из диапазона от 1 до 16 в полном смысле, вам потребуется массив чисел из 16 элементов, в которым будете хранить числа из этого диапазона.

[Serge_Bliznykov]

Сообщение от Вадим Мошев

чтобы программа работала с числами из диапазона от 1 до 16 в полном смысле, вам потребуется массив чисел из 16 элементов, в которым будете хранить числа из этого диапазона

Не учите плохому! Зачем хранить 16-ть чисел от 1 до 16?!
Не нужен в данной задаче массив!

[Вадим Мошев]

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

Не учите плохому! Зачем хранить 16-ть чисел от 1 до 16?!
Не нужен в данной задаче массив!

Я тогда не смог почему-то нормально выразить свою мысль.
Я имею в виду случай, когда у нас чисел действительно 16, но они как бы случайным образом взяты из этого диапазона ([1; 16]). Вот конкретный пример: 1, 3, 5, 6, 7, 7, 7,8, 9, 10, 11, 11, 11, 12, 12, 1

[Serge_Bliznykov]

Вадим Мошев, извините, я неправильно Вас понял.
я не ожидал увидеть в задании такую "глубину"...
Действительно, если прочитать задание, что задано 16 произвольных чисел, каждое из которых в диапазоне [1..16], тогда, конечно, массив будет к месту.