Question

Паскаль. Задано натуральное число n. Вывести первые две цифры заданного числа.

Answer 1

Var n:integer;
Begin
Write('n = ');ReadLn(n);
While n div 100 > 0 do
   Begin
   n:=n div 10
   End;
WriteLn(n)
End.