1.Nhập 1 số nguyên đếm chữ số đó
2.Viết pt nhập các số từ 1 đến 10 nằm trên 1, dòng
1.Nhập 1 số nguyên đếm chữ số đó 2.Viết pt nhập các số từ 1 đến 10 nằm trên 1, dòng
By Kylie
By Kylie
1.Nhập 1 số nguyên đếm chữ số đó
2.Viết pt nhập các số từ 1 đến 10 nằm trên 1, dòng
1.
uses crt;
var n,d:longint;
begin
clrscr;
write(‘Nhap 1 so:’);readln(n);
while n<>0 Do
begin
inc(d);
n:=n div 10;
end;
writeln(‘n co ‘,d,’ chu so’);
readln;
end.
2.
uses crt;
var n,i:longint;
begin
clrscr;
write(‘Nhap so chu so muon nhap:’);readln(n);
for i:=1 to n do
begin
read(n);
if i mod 10=0 then writeln;
end;
readln;
end.
Bài 1:
program dem_chuso;
uses crt;
var n:longint;
d:byte;
begin
clrscr;
write(‘Nhap so: ‘); readln(n);
d:=0;
while n>0 do
begin
d:=d+1;
n:=n div 10;
end;
write(‘Co ‘,d,’ chu so’);
readln;
end.
Bài 2:
program inso;
uses crt;
var n,i:integer;
begin
clrscr;
write(‘Nhap so: ‘); readln(n);
for i:=1 to n do
begin
write(i,’ ‘);
if i mod 10=0 then writeln;
end;
readln;
end.