Viết chương trình cho bt chữ số hàng trăm , hàng chục , hàng đơn vị của một số có ba chữ số . Vdu khi nhập số 651 thì máy in ra Chữ số hàng trăm : 6 Chữ số hàng chục : 5 Chữ số hàng đơn vị : 1 Làm giúp em với ạ em đang cần gấp lắm ạ em cảm ơn trc ạ
2 câu trả lời
uses crt;
var a, b, c, n : integer;
begin
clrscr;
write('nhap so co ba chu so : ');readln(n);
a := n div 100;
b := (n - a * 100) div 10;
c := n - a * 100 - b * 10;
writeln('Chu so hang tram : ', a);
writeln('Chu so hang chuc : ', b);
writeln('Chu so hang don vi : ', c);
readln
end.
program b1;
uses crt;
var n:longint;s:string;
begin
clrscr;
write('nhap n:');readln(n);
str(n,s);
writeln('chu so hang tram:',s[1]);
writeln('chu so hang chuc:',s[2]);
write('chu so hang don vi:',s[3]);
readln;
end.
- Đề thi học kì 2 môn địa 8 có lời giải chi tiết
- Đề thi học kì 2 môn địa 8 có lời giải chi tiết
- Đề thi học kì 2 môn địa 8 có lời giải chi tiết giúp các em luyện tập và củng cố kiến thức hiệu quả
- Kiểm tra 15 phút lần 1 học kì 1 - đề số 5 Địa 8 có lời giải chi tiết
- Kiểm tra 15 phút lần 1 học kì 1 - đề số 4 Địa 8 có lời giải chi tiết
