PASCAL ABC. Вводится натуральное число N. Получить новое число M - число перевертыш. Например, N=125, тогда M=521.
Ответы
program reverse;
var
n, m: integer;
begin
write('Введите число N: ');
read(n);
while (n > 0) do
begin
m := m * 10 + n mod 10;
n := n div 10;
end;
write('Перевернутое число: ', m);
end.
Объяснение:
program reverse; // Название программы
var
n, m: integer; // Создание целочисленных переменных по условию
begin // Начало программы
write('Введите число N: '); // Вывод сообщения в консоль
read(n); // Считываем число с клавиатуры
while (n > 0) do // Пока значение переменной n > 0 выполняем
begin // Начало цикла
m := m * 10 + n mod 10; // Вписываем в нужный разряд (m * 10) последнюю цифру введенного числа (n mod 10 - остаток от деления на 10)
n := n div 10; // Отделяем последнюю цифру от введенного числа путем целочисленного деления на 10
end; // Конец цикла
write('Перевернутое число: ', m); // Вывод ответа
end. // Конец программы
1 байте - 8 бит;
1кбайте - 1024 байта.
1). Два варианта решения :
А ). Переведем объем сообщения из кбайт в биты: 2.5 * 2^13 = 20480.
Теперь найдем время: 20480/2560 = 8 (мин)
Как посчитать без калькулятора:
- Сначало представим число 2560 ,как 256 * 10.
- дальше представим число 256,как 2^8 ,а число 10 - 2 * 5.
Получится такой пример : 2.5*2^13/2^8*2*5 , дальше сокращаем наши двойки со степенями, получится 2.5*2^4/5 , тоесть зная свойства степеней : a^n/a^m= a^n-m , получается 2^13/2^9=2^13-9. Думаю тут все понятно... ну в итоге 2.5*2^4/5 =8 (мин).
б). Переведем скорость передачи 2560 из бит в байты : 2560бит/8 = 320 байт,а объем сообщения 2.5 из кбайт в байты : 2.5кбайт * 1024 = 2560 байт.
Ну дальше всё просто : 2560/320=8 (мин).
3 ). Объем сообщения переводим из Кбайт в биты тоесть: 225*2^13/14400=128.
А вторую задачу тебе правильно решили.
п - 11
о - 32
к - 10
а - 22
к о л о к о л
10 32 хх 32 10 32 хх
Буквы "л" у нас нет и в таком виде задача не имеет решения.
Но, скорее всего, в условии ошибка и вместо "после" надо читать "поле".
Проверим, нет ли противоречий
п о л е
11 32 12 20
Противоречий с уже определенными кодами букв нет, следовательно 12 - это "л" и тогда ответ будет
10 32 12 32 10 32 12
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
var
x: byte;
c1, c2: longint;
begin
readln(c1);
c2 := 0;
while c1>0 do
begin
x := c1 mod 10;
c1 := c1 div 10;
c2 := c2*10 + x;
end;
writeln(c2);
end.