Viết chương trình Nhập số N, in ra chữ số đầu và cuối của N.

2 câu trả lời

program bai_giai;
uses crt;
var n:longint;s:string;
begin
 clrscr;
  write('n=');readln(n);
  str(n,s);
  writeln('chu so dau la:',s[1]);
  write('chu so cuoi la:',s[length(s)]);
 readln
end.

uses crt;
var n: string;
begin
clrscr;
    readln(n);
    writeln(n[1], ' ', n[length(n)]);
readln;
end.