Из последовательности 10 двоичный целых чисел выбрать числа, которые делятся на 3 и найти сумму этих чисел

@vitaliy1111 · Регистрация: 30.05.2012

Студворк — интернет-сервис помощи студентам

Из последовательности 10 двоичный целых чисел выбрать числа, которые делятся на 3 и найти сумму этих чисел.

@BumerangSP · 17.09.2012, 18:06

Pascal

uses crt;
var i,j,k,sum: integer;
    s: string;
 
function BinToDec(s: string): integer;
var i,k,bin: integer;
begin
 bin:=0;
 k:=0;
 for i:=length(s) downto 1 do
  if s[i]='1' then
   begin
    bin:=bin+round(exp(ln(2)*k));
    inc(k);
   end
  else
   inc(k);
 BinToDec:=bin;
end;
 
begin
 sum:=0;
 writeln('Введите числа двоичной сс: ');
 for i:=1 to 10 do
  begin
   readln(s);
   if BinToDec(s) mod 3 = 0 then
    sum:=sum+BinToDec(s);
  end;
  writeln('Answer: ',sum);
end.

@vitaliy1111 0 / 0 / 0 Регистрация: 30.05.2012 Сообщений: 58
		1
	Из последовательности 10 двоичный целых чисел выбрать числа, которые делятся на 3 и найти сумму этих чисел 17.09.2012, 11:25. Показов 1714. Ответов 1 Метки нет (Все метки) Из последовательности 10 двоичный целых чисел выбрать числа, которые делятся на 3 и найти сумму этих чисел. 0

Опции темы

Из последовательности 10 двоичный целых чисел выбрать числа, которые делятся на 3 и найти сумму этих чисел

Решение