Нужно написать линейную программу перевода четырехзначного двоичного числа в десятичную систему счисления.

Знания

Информатика

1 ответ:

mars55 [7]3 года назад

0 0

Var s : String;
Begin
Repeat
Readln(s);
Until Length(s)=4;
Writeln((Ord(s[1])-Ord('0'))*8+(Ord(s[2])-Ord('0'))*4+(Ord(s[3])-Ord('0'))*2+(Ord(s[4])-Ord('0')));
end.

Читайте также

Помогите!!!! Срочно!!!!64МБайта=40960Бит=9654Кбайт=Сколько байтов в сообщении размером 256 бит?

Андрей М1 [6]

64 МБайт = 65536 КБайт

0 0

4 года назад

Ввести четырехзначное число. Поменять крайние цифры числа местами.

Montigon

Var n : Integer;
Begin
Readln(n);
n:=(n mod 10)*1000+(n mod 1000 div 10)*10+(n div 1000);
Writeln(n);
end.

Ввод: 1234
Вывод: 4231

0 0

4 года назад

Написать программу для у=1/х , х - любое число Помогите Пожалуйста!!!))

ВоваПетров

Если тебе нужна программа для переворачивания числа,вот тебе она на C :
#include <iostream>

using namespace std;

int main()
{
    double x;
    double y;

    cin >> x; /* Ввод числа */
    y = 1/x;

    cout << "y = " << y << endl;
    return 0;
}

0 0

1 год назад

Сколько трехбуквенных слов, осмысленных, можно составить из карточек, на которых записаны буквы: М, О, К, Е, К, Л, О, А, П, В? Б

Ромалич [7]

МАК
МЕЛ
ВАЛ
КОМ
КАЛ
5 слов, более невозможно, так как пропадает смысл и букв требуется больше.

0 0

3 года назад

Дана последовательность операторов: A:=1; B:=2; While A+B<8 do Begin A:=a+1; B:=b+2; End; S:=a+b; Сколько раз будет повторен

Александр Пушнов

2 раза
а = 3
b = 6
s = 9

0 0

4 года назад