pascal 11-И-2

Question 1

11-И-2 з5

На вход программе подаётся последовательность 0 и 1 не более 60 символов длиной, заканчивающаяся точкой (точка – признак конца последовательности) – запись двоичного числа. Вывести это число в десятичной системе.

Answer 1

program zadacha5;
var s:char; total:integer; n:integer;

begin
    total:=0;
    read(s);
    while s <> '.' do
        begin
        total:=total*2;
        n := ord(s)-ord('0');
        total += n;
        read(s);
        end;
    write(total);
end.

Question 2

11-И-2 з6

На вход программе подаётся целое число в n-ичной системе исчисления и число 1<|n|<10. Вывести на экран запись числа в десятичной системе исчисления. Массивы и строки не использовать. (Системы с отрицательным основанием называются нега-позиционными).

Answer 2

program zadacha6;
var s:char;
    total:integer;
    n:integer;
    m:integer;

begin
    total:=0;
    writeln('ввод основания');
    readln(n);
    writeln('ввод числа');
    read(s);
    writeln();
    while s <> #10 do {LF line feed}
        begin
        total:=total*n;
        m := ord(s)-ord('0');
        total += m;
        read(s);
        end;
    write(total);
end.