Юзер вводит целое положительное число. Вывести на экран символы "*" таким

Пользователь вводит целое положительное число. Вывести на экран знаки "*" таким образом: в первой строке количество "*" одинаково заключительней цифре числа, в 2-ой - предпоследней и так дальше. К примеру, для числа 351 получим следующую картину:

*
*****
***

Задать свой вопрос
1 ответ
Var    a, i: integer;

begin
  read(a);
  while(a lt;gt; 0) do 
  begin
    for i := 1 to a mod 10 do write('*');
    writeln();
    a := a div 10;
  end;
end.
Kristina Emaneeva
оправдываюсь, на данный момент исправлю
Семён
помоги пожалуйста сделать это http://znanija.com/task/10608370
, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт