ПРИМЕР 1
училище AH
продуктови номера ALG (Arg цели Num, Res цели P)
nachtsel I, J, K, L
Num: = ABS (Числа) | ABS - абсолютна стойност
I: = Разделение (Бр, 1000) | аз - първата цифра
| DIV - частното с остатъка
к: = мод (Разделение (Числа, 100) 10) | й - втората цифра
| мод - остатък от участък с остатък
K: = мод (Разделение (Бр, 10), 10) | K - третата цифра
L: = мод (Числа, 10) | л - четвъртата цифра
P: = I * J * к * л;
игра
Turbo Pascal
Програма DigitsProduct;
Използва CRT;
Var номер,
I, J, K, L,
P. цяло число;
BEGINClrScr;
Напишете ( "Въведете номера на четирицифрен. '); ReadLn (Number);
Брой: = Abs (Number);
Напишете ( "фигури на" Номер .. '.');
I: = брой DIV 1000; Добави (I: 3);
J: = брой DIV 100 мод 10; Добави (J: 3);
к: = брой DIV 10 мод 10; Добави (к: 3);
л: = брой мод 10; WriteLn (л: 3);
P: = I * J * к * л;
WriteLn (P. "О т д г продукт в числа, равни на. ');
ReadLn
END.
QBasic
Център за либерални стратегии
INPUT "Въведете номера на четирицифрен.", Брой
Печат. PRINT "Броят на"; Брой; "";
Брой = ABS (Number)
I = FIX (Брой / 1000): ПЕЧАТ I; "FIX - цялата част на аргумента
J = FIX (Брой / 100) MOD 10. ПЕЧАТ J;
к = FIX (Брой / 10) MOD 10. ПЕЧАТ к;
L = брой MOD 10. ПЕЧАТ л
P = I * J * к * л
Печат. Печат "За д т т в продукта от номерата на същите."; P
END
други записи
тества тест система Брой проверява случай коефициентите Резултати а б в 1, г> 0 1 1 -2 x1 = 1, х2 = - 02 февруари г = 0 1 2 1 Корените са равни: Х1 = - 1, х2 = - 1 Март г