Задание в паскале. Срочно! Выделить первую и вторую цифру двухзначного числа с...

Question

Задание в паскале. Срочно!

Выделить первую и вторую цифру двухзначного числа с комментарием. Использовать функции div и mod. То есть программа должна работать так: вводим число 75, на экране появляется надпись: первая цифра числа - 7, вторая цифра числа - 5.

Answer 1

Вот программмммммммма:

---

Comments

var
  x,a,b:integer;
begin
  Write('Введите двузначное число>> ');
  Readln(x);
  
  If (x in [10..99]) then
                         begin
                           a:=x div 10;
                           b:=x mod 10;
                           writeln('Первая цифра- ',a,',','Вторая цифра- ',b)
                         end
     else
         writeln('Число не двузначное')
 end.        
       
         

---

var
  x,a,b:integer;
begin
  Write('Введите двухзначное число>> ');
  Readln(x);
  
  If (x in [10..99]) then
                         begin
                           a:=x div 10;
                           b:=x mod 10;
                           writeln('Первая цифра- ',a,',','Вторая цифра- ',b)
                         end
     else
         writeln('Число не двухзначное')
 end.