Книги-online
Практикум — Глава 1. Алгоритмы линейной и разветвляющейся структуры
Пример 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
