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
А где само фото ????чтобы сделать задание
8310 4155 2077 1038 519 259 129 64 32 16 8 4 2 1
0 1 1 0 1 1 1 0 0 0 0 0 0 1
8310 (10) =10000001110110 (2) в скобках указана система счисления
195(10)=11000011 (2) четыре единицы
26310 3288 411 51 6
26304 3288 408 48 0
-----------------------------------------
6 0 3 3 6
26310(10)= 63306 (8)
, где i - размер единицы (ну там символа или... цвета, не знаю) в битах, а n - количество сочетаний (палитра, например)
Насколько я понимаю, так:)