Question

17. Сколько существует четырехзначных чисел, первая и последняя цифры которых одинаковые?
1)98
2)729
3)900

Answer 1

Ответ:

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.