Дано естественное число n. Отыскать отношение заключительной числа к первой цифре

Дано естественное число n. Найти отношение заключительней числа к первой цифре данного числа.
Помогите написать программку в Паскале.

Задать свой вопрос
1 ответ
Var
  n, i, p1, p2: integer;
 
begin
  read(n);
  p2 := n mod 10;
  while n gt; 0 do
  begin
    if(n div 10 lt;= 0) then p1 := (n mod 10);
    n := n div 10;
  end;
  write(p2 / p1);
end.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт