Var a, i: integer;
begin
read(a);
while(a <> 0) do
begin
for i := 1 to a mod 10 do write('*');
writeln();
a := a div 10;
end;
<span>end.</span>
Ошибка. Неправильная ссылка на ячейку.
Содержавать документы и др приложения
Программа вычисляет элементы ряда, который можно задать формулой общего члена следующей формулой: An = (n*n!)/2^(n), где 2^(n) - это 2 в степени n.