var a,s:integer;
begin
readln(a);
while a>0 do
begin
if a mod 10 mod 3 = 0 then s:=s+a mod 10;
a:=a div 10
end;
if s=0 then writeln('NO')
else writeln(s);
end.
//PascalABC.NET версия 3.4.0.1677 от 17.06.18
//Если программа не запускается, то обновите версию
begin
var arr := ArrRandomInteger(30, -500, 500);
Println(arr);
arr.Sort;
Println(arr);
WritelnFormat('Минимальный элемент: B[{0}] = {1}', arr.IndexMin(), arr.Min());
end.
1-B, 2-D, 3-E, 4-A, 5-C, 6-F
Хотя ответы задания у вас явно устарели: шина AGP уже не встречается на современных платах.
Для записи часов используются 24 значения (0-23) 16<24<32 32=2^5, т.е. запись одного показания времени занимает 5 бит. То-же самое для влажности (48-62) 8<15<16 16=2^4 и температуры (13-22) 8<10<16 16=2^4. Получаем, что сообщение с 3 показателями имеет объем 5+4+4=13 бит. 13*30=390 бит