Складіть проект знаходження суми усіх трицифрових чисел, які діляться на 3 і не більші заданого натурального числа а. Введіть число а. Виведіть знайдену суму.​

Если число 49 записывается как 121, значит первый остаток от деления равен 1, то есть основанием системы счисления является число, кратное 48.

121 имеет 3 разряда, значит основание однозначно меньше 10 и больше 2. Подходят 3, 4, 6, 8.

Учитывая, что в числе 121 три разряда, значит число 48 делилось всего три раза. 
Число 8 не подойдет, т.к. 48/8=6, значит будет всего два деления.
Число 3 не подойдет, т.к. 48/3 = 16, 16/3=5 - то есть тут будет больше трёх знаков.
Число 4 не подойдет, т.к. 48/4=12, а 12 делится на 4 без остатка, но, судя по числу, во втором делении остаток должен быть равен 2.
Остаётся число 6. Проверим

49/6=8 |1
8/6 = 1 |2
1/6=0 |1

121(6)

program z1;

var a:array [1..10] of integer;

i,max,min:integer;

begin

for i:=1 to 10 do

begin

write('Введите ',i:2,' элемент: ');

readln(a[i])

end;

writeln;

max:=a[1];

min:=a[1];

for i:=2 to 10 do

begin

if a[i]>max then max:=a[i];

if a[i]<min then min:=a[i]

end;

writeln ('Максимальное число: ',max);

writeln (' Минимальное число: ',min);

end.

Объяснение:

Ввод элементов массива с пояснениями

Присваиваем переменным для максимального и минимального числа значение 1-го элемента

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

Вывод максимального и минимального числа