EXEMPLUL 1
AH școală
Numerele de produs ALG (Arg scopuri Num, Res scopuri P)
nachtsel i, j, k, l
Num: = abs (Num) | abs - valoare absolută
i: = div (Num, 1000) | I - prima cifră
| div - câtul cu restul
j: = mod (div (Num, 100) 10) | j - a doua cifră
| mod - restul de divizare cu rest
k: = mod (div (Num, 10), 10) | k - a treia cifră
l: = mod (Num, 10) | l - a patra cifră
P: = i * j * k * l;
joc
Turbo Pascal
Programul DigitsProduct;
Folosește Crt;
Număr Var,
i, j, k, l,
P. Integer;
BEGINClrScr;
Scrie ( „Introduceți numărul format din patru cifre.“); Readln (număr);
Numar: = Abs (Number);
Scrie ( 'figuri de' Number .. '');
I: = Număr div 1000; Write (i: 3);
j: = Număr div 100 Mod 10; Write (j: 3);
k: = Număr div 10 mod 10; Scrie (k: 3);
l: = Număr mod 10; WriteLn (l: 3);
P: = i * j * k * l;
WriteLn (P. 'O t e r produs în număr egal cu.');
readln
END.
QBasic
CLS
INPUT „introduceți numărul de patru cifre.“, Număr
PRINT. PRINT „Numerele de“; Numărul; "";
Număr = ABS (număr)
i = FIX (Număr / 1000): PRINT i; „FIX - partea întreagă a argumentului
j = FIX (Număr / 100) MOD 10. PRINT j;
k = FIX (Număr / 10) MOD 10. PRINT k;
l = Număr MOD 10. PRINT l
P = i * j * k * l
PRINT. PRINT „Despre e t t în produsul numerelor la fel.“; P
END
alte înregistrări
Teste de testare Număr de sistem verifică caz Cote rezultate a b c 1, d> 0 1 1 -2 x1 = 1, x2 = - Feb. 2 d = 0 1 2 1 Rădăcinile sunt egale: x1 = - 1, x2 = - 1 luna martie d