Question

1.VCT nhập vào 1 stn từ bàn phím và in ra màn hình các chữ số lẻ có mặt trong số đó

2. 1 tờ giấy có độ dày 0,1mm , phải gấp đôi tờ giấy đến bn lần để tờ giấy có độ dài >1m

Answer 1

1. Var n,i:integer;

Begin

Write (' nhap n : ');

Readln (n);

For i:= 1 to n do If i mod 2 <>0 then Writeln (' cac so le co trong so do : ',i:4);

Readln;

end.

Answer 2

1m=1000mm => 0.1*10000=1000mm

=> Phair gapas 10000 lanfa

Answer 3

1.

var n,i: integer;

begin

read(n);

for i:=1 to n do if i mod 2=1 then write(i);

end.