Nhập vào 1 số lớn hơn 0 và nhỏ hơn 1000. Viết cách đọc số đó bằng tiếng Việt ra màn hình
0 bình luận về “Nhập vào 1 số lớn hơn 0 và nhỏ hơn 1000. Viết cách đọc số đó bằng tiếng Việt ra màn hình”
program thuc_hanh;
uses crt;
var n ,x, y, z : integer;
begin
clrscr;writeln(‘nhap vao so n la’);readln(n);writeln(‘cac chu so trong so n la’); if (n>=1000) and (n<=3000) then begin x :=n mod 10; writeln(a:4); n :=n div 10; x :=n mod 10; writeln(b:4); n :=n div 10; z :=n mod 10; writeln(c:4); n :=n div 10; writeln(n : 4);end
program thuc_hanh;
uses crt;
var n ,x, y, z : integer;
begin
clrscr;writeln(‘nhap vao so n la’);readln(n);writeln(‘cac chu so trong so n la’); if (n>=1000) and (n<=3000) then begin x :=n mod 10; writeln(a:4); n :=n div 10; x :=n mod 10; writeln(b:4); n :=n div 10; z :=n mod 10; writeln(c:4); n :=n div 10; writeln(n : 4);end
else writeln(‘khong xac dinh’);
readln;
end.