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

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

  • 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

    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,во-первых:идентификатор не может начинаться с цифры и во-вторых:неправильно организован цикл с предусловием,программа не будем считать произведение цифр,вы наверное его перепутали с циклом с постусловием


Добавить комментарий

Ваш e-mail не будет опубликован. Обязательные поля помечены *