Составить программу Pascal...

Тема в разделе "Информатика", создана пользователем Happy_Human, 23 фев 2010.

  1. Happy_Human

    Happy_Human New Member

    Составить программу Pascal :Найти произведение цифр заданого 3х значного числа .
     
    Happy_Human, 23 фев 2010
    #1
  2. dobryprapor

    dobryprapor New Member

    var
      a : integer;
    begin
      read (a);
      writeln ((a mod 10) * (a div 100) * (a div 10 mod 10));
    end.
     
    dobryprapor, 23 фев 2010
    #2

Поделиться этой страницей

Наша группа