Решаем задачи Абрамян на Паскале. String24

String24. Дана строка, изображающая двоичную запись целого положительного числа. Вывести строку, изображающую десятичную запись этого же числа.

Решение:

program String24;
var
  i:integer;
  S:string;
  rez:real;
begin
 Write('S:');
 Readln (S);
 Rez:=0;

 for i:=0 to Length(S)-1 do
   if (ord(S[length(s)-i]) = 49) then rez:=rez+exp(ln(2)*i);

 Writeln(trunc(Rez));
end.

program String24;

var

i:integer;

S:string;

rez:real;

begin

Write('S:');

Readln (S);

Rez:=0;

for i:=0 to Length(S)-1 do

if (ord(S[length(s)-i]) = 49) then rez:=rez+exp(ln(2)*i);

Writeln(trunc(Rez));

end.

Другие задачи из раздела String можно посмотреть здесь.

Решаем задачи Абрамян на Паскале. String24

Комментарии:

Добавить комментарий Отменить ответ