(((
на вход алгоритма подается натуральное число N.Алгоритм строит по нему новое число R следующим образом:
1)Строится двоичная запись N.
2)Каждый разряд этой записи заменяется двумя разрядами по следующему правилу:если в разряде стоит 0 ,то вместо него пишется 00;если в разряде стоит 1,то 1 заменяется 11.
Полученная таким образом запись(в ней в два раза больше разрядов,чем в записи исходного числа N) является двоичной записью числа R -результата работы данного алгоритма.
Укажите минимальное число R,большее 63,которое может являться результатом работы данного алгоритма.ответ переведите в десятичную систему вас ,распишите задание подробно(прям полностью)
А)
program c1;
var
a, b: integer;
c: real;
begin
a := 2;
b := 3;
c := a + 1 / 3;
write(c);
end.
Б)
program c2;
var
a, b: integer;
c: real;
begin
a := 2;
b := 3;
c := a + 4 / 2 * 3 + 6;
write(c);
end.
В)
program c3;
var
a, b: integer;
c: real;
begin
a := 2;
b := 3;
c := a + 4 / 2 * 3;
write(c);
end.
Объяснение:
А)
program c1; // Название программы
var // Раздел для описания переменных
a, b: integer; // Объявление целочисленных переменных
c: real; // Объявление вещественной переменной
begin // Начало программы
a := 2; // a = 2
b := 3; // b = 3
c := a + 1 / 3; // c = a + 1 ÷ 3
write(c); // Выводим ответ
end. // Конец программы
Б)
program c2; // Название программы
var // Раздел для описания переменных
a, b: integer; // Объявление целочисленных переменных
c: real; // Объявление вещественной переменной
begin // Начало программы
a := 2; // a = 2
b := 3; // b = 3
c := a + 4 / 2 * 3 + 6; // c = a + 4 ÷ 2 × 3 + 6
write(c); // Выводим ответ
end. // Конец программы
В)
program c3; // Название программы
var // Раздел для описания переменных
a, b: integer; // Объявление целочисленных переменных
c: real; // Объявление вещественной переменной
begin // Начало программы
a := 2; // a = 2
b := 3; // b = 3
c := a + 4 / 2 * 3; // c = a + 4 ÷ 2 × 3
write(c); // Выводим ответ
end. // Конец программы
// Внимание! Если программа не работает, обновите версию!
begin
var (s,x):=(ReadlnString('Введите число, можно нецелое:'),0.0);
if TryStrToFloat(s,x) then
if s.Where(c-> c in ['0'..'9']).Select(c->c.ToDigit).Sum mod 10=5
then Writeln('Сумма цифр заканчивается на 5')
else Writeln('Сумма цифр не заканчивается на 5')
else Writeln('Неверное представление числа')
end.
Примеры
Введите число, можно нецелое: -3532175
Сумма цифр не заканчивается на 5
Введите число, можно нецелое: 0.02432413
Сумма цифр не заканчивается на 5
Введите число, можно нецелое: -13.05360214
Сумма цифр заканчивается на 5
Введите число, можно нецелое: 1.23007e-31
Сумма цифр не заканчивается на 5