Проблемы информационной безопасности эссе​

900

Объяснение:

Для решения была использована программа на Паскале, которая будет ниже. Её суть заключается в переборе чисел от 1000 до 9999. с операции mod ищется остаток от деления на 10(т.е крайняя цифра), с операции div при делении на 1000 берёт первое число, и сравнивает их. Если цифры совпадают, она добавляет один в "общую копилку", т.е счётчик. В результате программа вывела 900.

program znania;

uses crt;

var a, b:Integer;

begin

for a := 1000 to 9999 do

begin

if (a mod 10)=(a div 1000) then

b:=b+1;

end;

writeln(b);

readln;

end.

Объяснение:

При переводе числа из десятичной системы счисления в другую нужно поделить число на основание системы счисления, в которую переводишь, и записать остаток. Результат деления снова поделить на  основание системы счисления, в которую переводишь, и записать остаток. Продолжать до тех пор, пока результат не станет меньше основания с. сч., в которую переводишь. Тогда нужго записать последнее оставшееся число (то, которое меньше основания...) и все остатки в обратном порядке. Получившаяся последовательность чисел — ответ.

Решение примеров из во см. в приложенном фото.