Program Summa;
Uses Crt;
var s,n,c:integer;
begin
clrscr;
write('Введите числа коннц ввода 0: ');
s:=0;c:=0;
repeat
readln(n);
c:=c+1;
if (n mod 2)=0 then
if ((n>=5)and (n<=25)) then s:=s+n;
until (n=0) or (c=1000) ;
write('Сумма ',c,' чётных чисел в диапазоне от 5 до 25:',s);
readkey;
end.
:D
Переводим числа в разных системах счисления в десятичную систему и ищем совпадения с заданными десятичными числами. Например, предполагаем, что 323 - это число в системе счисления с основанием 4. 323(4)=59(10). Не подходит. 323(5)=88(10). Подходит. Итак:
89=1121(4)
77=1001101(2)
61=2021(3)
91=231(6)
88=323(5)
Неправильный ответ это второй под буквой А