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