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

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

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

Решение тремя вариантами:

program u11z12;

  var i: integer;

begin           //ПЕРВЫЙ ВАРИАНТ
  i:=15 mod 2; //i := 15 mod 2 (переменная x получит значение 2;
   write(i);   //вычисляется 15 – ((15 div 2) * 2)).
               //i = 15 -(7*2) = 1

  i:=15 div 3; // здесь без остатка = 5
  write(i);

  Writeln(); // перенос строки для ВТОРОГО ВАРИАНТА:

  i:= 15 div 15;   // =1
  write(i);
  i:= 15 mod 10; // вычисляется 15 – ((15 div 10) * 10)) = 5.
  write(i);

   Writeln(); // перенос строки для ТРЕТЬЕГО ВАРИАНТА:

  i:= 15 div 1; // = 15
   write(i);        
readln();
end.