[ домой ] [ следующий ] [ начало главы ] [ предыдущий ] [ содержание ]

Пример 1.4. Найти произведение цифр заданного целого четырехзначного числа.
 
Система тестов
 
Номер теста
Проверяемый 
случай
Число
Результат
1
Число положительное
2314
P = 24
2
Число отрицательное
-1245
P = 40
 
Демонстрация
 
Школьный АЯ
алг Произведение цифр (арг цел Num, рез цел P)
нач цел i, j, k, l
  Num := abs(Num)             | abs - абсолютная величина
  i := div(Num, 1000)         | i - первая цифра
                              | div - частное от деления с остатком
  j := mod(div(Num, 100), 10) | j - вторая цифра
                              | mod - остаток от деления с остатком 
  k := mod(div(Num, 10), 10)  | k - третья цифра
  l := mod(Num, 10)           | l - четвертая цифра
  P := i * j * k * l;
кон
 
Turbo Pascal
Program DigitsProduct;
Uses Crt;
Var Number,      {заданное число}
    i, j, k, l,  {цифры числа}
    P : Integer; {произведение цифр}
BEGIN ClrScr;
  Write( 'Введите четырехзначное число : ' ); ReadLn(Number);
  Number:=Abs(Number);
  Write( 'Цифры числа ' , Number , ' : ' );
  i := Number div 1000; Write(i:3);       {первая цифра}
  j := Number div 100 mod 10; Write(j:3); {вторая цифра}
  k := Number div 10 mod 10; Write(k:3);  {третья цифра}
  l := Number mod 10; WriteLn(l:3);       {четвертая цифра}
  P := i * j * k * l ;
  WriteLn( 'О т в е т : произведение цифр равно ' , P );
  ReadLn
END.
 
QBasic
CLS
INPUT "Введите четырехзначное число : ", Number
PRINT : PRINT "Цифры числа "; Number; ": ";
Number = ABS(Number)
i = FIX(Number / 1000): PRINT i ; ' FIX - целая часть аргумента
j = FIX(Number / 100) MOD 10 : PRINT j ;
k = FIX(Number / 10) MOD 10 : PRINT k ;
l = Number MOD 10 : PRINT l
P = i * j * k * l
PRINT : PRINT "О т в е т : произведение цифр равно " ; P
END
 

[ домой ] [ следующий ] [ начало главы ] [ предыдущий ] [ содержание ]