Question

+ Ngày cuối tuần :

- Viết chương trình đếm các số chính phương chia hết cho 5 trong dãy từ 1 đến 200

- Viết chương trình đếm xem có bao nhiêu số ở hàng đơn vị có chứa số 1 trong dãy số từ 1 đến 1000

Phần thưởng là 2gp cho mỗi câu trả lời có kết quả đúng

Answer 1

program b1;

var i,dem:integer;

begin

dem:=0;

for i:=1 to 200 do if i*i mod 5=0 then dem:=dem+1;

write(dem);

readln

end.

Answer 2

program b2;

var i,dem,j:integer;

begin

dem:=0;

for i:=1 to 1000 do

for j:=0 to 99 do

if i=j*10+1 then dem:=dem+1;

write(dem);

readln

end.

Answer 3

Bạn ơi mk cũng chưa hiểu lắm bạn nói lại đi

Answer 4

Từ 1 đến 1000 có 92 số hàng đơn vị chứa số1

Answer 5

Bạn có phải là CTV không vậy ạ, vả lại nếu như có người trả lời đúng thì chắc chắn bạn có 2GP để trao thưởng không.

Answer 6

giờ quay lại quên hết lập trình r

Answer 7

viết chương trình pascal học lớp 8 trở đi mới hiểu thôi bạn

Answer 8

Bài 1: (đã chạy => đúng, ko tin có thể thử lại)
uses crt;
var i,d:integer;
s:real;
begin
clrscr;
for i:=1 to 200 do
begin
s:=sqrt(i);
if (i mod 5=0) and (sqr(s)=i) then
d:=d+1;
end;
write('Co ',d,' so chinh phuong chia het cho 5 trong day tu 1 den 200');
readln
end.

Answer 9

Bài 2: (Cách này nhanh hơn cách của híp, cải tiến hơn)
uses crt;
var i,d:integer;
begin
clrscr;
for i:=1 to 1000 do
if i mod 10 = 1 then d:=d+1;
write('Co ',d,' so o hang don vi co chua so 1 trong day so tu 1 den 1000');
readln
end.