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

Primary tabs

Submitted by avast36 on Tue, 03/29/2022 - 16:22

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

Решение:

var
  i:integer;
begin
  writeln('vvedite celoe chislo');
  readln(i);
  writeln(i div 10);
  writeln(i mod 10);
  readln();
end.

Консоль:

vvedite celoe chislo
15
1
5