Урок 11 января целочисленное деление

 ВИДЕО 

Эл практикум с 35 задания

д/з ВЫУЧИТЬ 

var
  a, b, a1, a2: integer;
begin
  Write('введите a= ');
  Readln(a);
  a1 := a mod 10; {Выделение последней цифры}
    a2 := a div 10; {Выделение первой цифры}
  b := a1 * 10 + a2;
  Write('результат = ', b);
end.

var  a, b, c, d: integer;
begin
  read(a, b);
  c := a div b;
  d := a mod b;
  writeln('целая часть=', c);
  writeln('остаток=', d);
end.

Игры на div mod 

ссылка  1

ссылка 2

ссылка 3

ссылка 4

ссылка 5

ссылка 6

ссылка 7