Цифры числа n

получилось?
Чему равна целая часть числа 1268,2?
Чему равен остаток от деление 12682 на 10? С чем он совпадает?
Как получить вторую с конца цифру числа 12682?

Изучение
нового
материала

1268,2

1268

2

div

mod

вывод_цифр
(арг цел n, рез цел s)
нач цел nn, c1, с2, с3
| nn:=n

Изучение
нового
материала

Остаток от деления числа nn на 10

младшая цифра

целая часть числа nn/10

| c1:=mod(nn,10)
| nn:=div(nn,10)

| c2:=mod(nn,10)
| nn:=div(nn,10)

| c3:=mod(nn,10)

| вывод с3,с2,с1
кон

различны.

алг сравнение (арг цел n, рез цел s)
нач цел nn, c1, с2, с3
| nn:=n
| s:=0 |цифры различны
| c1:=mod(nn,10)
| nn:=div(nn,10)
| c2:=mod(nn,10)
| nn:=div(nn,10)
| c3:=mod(nn,10)
| если c1=c2 или c1=c3 или c2=c3
| | то s:=1 |есть совпадение
| все
кон

Усвоение
материала

получение
всех цифр
трехзначного
числа

сравнение цифр

Boolean);
var kf, fl1 : Integer;
begin
kf:=num;
while kf>0 do
begin
fl1:=kf mod 10;
if fl1=n1 then begin flag:=True; exit; end;
kf:=kf div 10;
end;
end;

Закрепление
материала

цифра, с которой надо сравнить

цифры для сравнения

младшая цифра

совпадения есть

число без младшей цифры