uses crt; var m,n,i,t,t1:integer; begin clrscr; repeat write['m=']; readln[m]; write['n=']; readln[n]; if m>=n then writeln['ban da nhap sai, yeu cau ban nhap lai']; until m=10] and [i mod 3=0] then t:=t+i; if [i>=10] and [i mod 2=0] then t1:=t1+i; end; writeln['tong cac so co 2 chu so chia het cho 3 trong khoang tu ',m,' toi ',n,' la: ',t]; writeln['tong cac so co 2 chu so chia het cho 2 trong khoang tu ',m,' toi ',n,' la: ',t1]; readln; end.
Lorem ipsum dolor sit amet, consectetur adipiscing elit.Morbi adipiscing gravdio, sit amet suscipit risus ultrices eu.Fusce viverra neque at purus laoreet consequa.Vivamus vulputate posuere nisl quis consequat.
Create an account
- lý thuyết
- trắc nghiệm
- hỏi đáp
- bài tập sgk
Viết chương trình nhập 1 số có 2 chữ số.In ra màn hình tổng các chữ số trong số đó.
Các câu hỏi tương tự
Viết chương trình nhập 1 số có 2 chữ số.In ra màn hình tổng các chữ số trong số đó.