алг Произведение цифр (арг цел 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 ); ReadLnEND.
QBasic
CLSINPUT "Введите четырехзначное число : ", NumberPRINT : 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 lP = i * j * k * lPRINT : PRINT "О т в е т : произведение цифр равно " ; PEND
Пример 1.5. Решить квадратное уравнение ax2+ bx + c = 0.
