Question

Как найти первые две цифры натурального числа в паскале?

Answer 1

program al; 
   var n:integer;
 begin 
writeln('n='); 
readln(n);
  if (n >9) and (n<100) then writeln(n); 
     if (n > 99) and (n<1000) then  writeln(n div 10);
 if (n >1000) and (n<10000)   then writeln(n div 100); 
  if n>10000 then writeln(n div 1000);
readln;
end.

Answer 2

var
  n:longint;
  i,d:integer;
begin
  ClrScr;
  Write('n='); Read(n);
  if n<100 then Writeln(n:2)
  else begin
    repeat
      n:=n div 10;
      if n<100 then Writeln(n:2)
    until n<=99;
  end;
  Readkey
end.