profile
Опубликовано 1 год назад по предмету Информатика от daryafastovets

Найти произведение цифр заданного черыхехзначного числа. (в паскале, неиспользуя цикл)

  1. Ответ
    Ответ дан JustPeople
    VAR
       n, ans: Integer;
    BEGIN
       Read(n);

       ans := n mod 10; n := n div 10;
       ans := ans * (n mod 10); n := n div 10;
       ans := ans * (n mod 10); n := n div 10; 
       ans := ans * (n mod 10);  

       Write(ans);
    END.