Viết chương trình nhập vào một số nguyên có hai chữ số , in ra màn hình chữ số hàng chục và hàng đơn vị của số đó

Question

tuanh · Answer

program ctpt;

uses crt;

var a: integer;

begin

clrscr;

write(‘Nhap so nguyen a co 2 chu so: ‘); readln(a);

if (a<10) and (a>99) then write(‘Sai yeu cau’) else

begin

write(‘Chu so hang chuc la: ‘, a div 10);

write(‘Chu so hang don vi la: ‘, a mod 10);

end;

readln

end.

0 bình luận về “Viết chương trình nhập vào một số nguyên có hai chữ số , in ra màn hình chữ số hàng chục và hàng đơn vị của số đó”