Урок 11 Задача 12

Получите первую и последнюю цифры числа 15 с помощью оперций div и mod (решается без цикла)

var x, y: integer;
begin
  readln(x);
  y := x div 1;
  writeln(y);
  readln();
end.
vedro-compota's picture

а где mod?

_____________
матфак вгу и остальная классика =)

var x, y, z: integer;
begin
  x := 15;
  z := x mod 2;
  y := x div 3;
  writeln(z);
  writeln(y);
  readln();
end.