Дано натуральное число n. вычислить произведение его цифр. на паскале.

var

  n,p: longint;

begin

  p: =1;

  write ('n = ');

  readln(n);

  while n < > 0 do

    begin

    p: =p*(n mod 10);

    n: =n div 10;

    end;

  p: =p*n;

  writeln ('proizvedenie: ',p);

  readln;

end.

ilyakz,во-первых: идентификатор не может начинаться с цифры и во-вторых: неправильно организован цикл с предусловием,программа не будем считать произведение цифр,вы наверное его перепутали с циклом с постусловием

program 123;

var n,s,i: integer;

begin

writeln('введите число'); readln(n);

while n=0 do begin

  s: =s*(n mod 10);

  n: =n div 10;

                                                  end;

writeln('произведение цифр ',s);

end.

 

 

Правильное направление долевой нити в модели важно. оно имеет решающее значение для правильной драпируемости одежды и соответствует нитям основы ткани. направление нитей основы  на выкройках основных деталей, как правило, намечают по  длине. тогда изделие меньше вытягивается при носке и не теряет своей формы.направление нитей основы в выкройках всегда обозначается соответствующими линиями чтобы  определить направление долевой нити, можно следовать следующим правилам (в готовых выкройках она уже обозначена):

Var a: array [1..5,1..3] of integer; b: array[1..5] of integer; x,y,i,n,max: integer; begin i: =1; randomize; for x: =1 to 5 do  for y: =1 to 3 do   a[x,y]: =random(10);   for x: =1 to 5 do  begin  for y: =1 to 3 do    write(a[x,y],' ');   writeln;   end;   for y: =1 to 3 do   begin  for x: =1 to 5 do   b[i]: =b[i]+a[x,y];     i: =i+1;     end;   for i: =1 to 3 do  if b[i]> max then max: =b[i];   writeln(max); end.