Reorganize

2026-03-02 19:15:17 +02:00
parent 9192716bfb
commit f235a35ebb
610 changed files with 1 additions and 0 deletions
@@ -0,0 +1,16 @@
+program div_mod;
+ var a,one,dec,hun,rec:integer;
+  begin
+   WriteLn ('Ââåäèòå ÷èñëî');
+   ReadLn (a);
+   one:=a mod 10;
+   WriteLn ('Öèôðà åäèíèö ÷èñëà - ',one);
+   dec:=(a div 10) mod 10;
+   WriteLn ('Öèôðà äåñÿòêîâ ÷èñëà - ', dec);
+   hun:= a div 100;
+   WriteLn ('Öèôðà ñîòåí ÷èñëà - ', hun);
+   rec:= hun*100+dec*10+one;
+   WriteLn ('À ýòî òîæå ÷èñëî - ',rec);
+   Write ('Enter');
+   ReadLn;
+  End.