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,12 @@
+program a7;
+var a:real;
+b:integer;
+ begin
+  ReadLn(a);
+  a:=a*100;
+  b:= Trunc (a);
+  b:=b mod 100;
+  writeln(b);
+  a:=(b div 10) + (b mod 10);
+  writeln(a);
+  end.