Lời giải:
uses crt; var n,i:integer;ok:boolean; BEGIN clrscr; write['Nhap n: '];readln[n]; if n mod 2=0 then writeln['So ',n,' la so chan'] else writeln['So ',n,' la so le']; if n0]; if [n mod 2=0] and [a>=0] then begin s:=exp[1/n*ln[a]]; writeln['Ket qua la: ',s:0:4]; end else if [n mod 20] then begin s:=exp[1/n*ln[abs[a]]]; writeln['Ket qua la: ',s:0:4]; end else writeln['Khong xac dinh']; readln END.Bài 7: Tỉnh tổng các chữ số của một số
Nhập số bất kỳ có 3 chữ số rồi tính tổng các chữ số của số đó.
Lời giải:
Bài 8: Hoán vị 2 số
Nhập 2 số nguyên a, b, hoán vị 2 số khi a>b.
Lời giải:
uses crt; var a,b,tg:integer; BEGIN clrscr; write['Nhap a: '];readln[a]; write['Nhap b: '];readln[b]; if a>b then begin tg:=a; a:=b; b:=tg; end; writeln[a,' ',b]; readln END.Bài 9: In các bội của 3 và 5
Nhập số nguyên dương n, in ra tổng các số nguyên dương từ 1 đến n là bội của 3 hoặc 5.
Lời giải:
uses crt; var n,tong,i:integer; BEGIN clrscr; write['Nhap so nguyen duong n: '];readln[n]; tong:=0; for i:=1 to n do if [i mod 3=0] or [i mod 5=0] then tong:=tong+i; writeln['Tong cac so chia het cho 3 hoac 5 tu 0--> ',n,' la: ',tong]; readln END.Bài 10: In tổng các chữ số của một số
Nhập n bất kỳ sau đó in ra tổng các chữ số của n.
Lời giải:
uses crt; var n,m:longint;tong:byte; BEGIN clrscr; write['Nhap n: '];readln[n]; tong:=0;m:=n; while m>0 do begin tong:=tong+m mod 10; m:=m div 10; end; writeln['Tong cac chu so cua ',n,' la: ',tong]; readln ENDBài 11: Kiểm tra số nguyên tố
Nhập vào một số n bất kỳ và kiểm tra xem n có phải là số nguyên tố không.
Code mẫu:
uses crt; var n,i:integer; BEGIN clrscr; write['Nhap so nguyen duong n: ']; readln[n]; if n c] and [b + c > a] and [c + a > b] and [a > 0] and [b > 0] and [c > 0] Then Writeln ['Thoa man: Day la 3 canh cua mot tam giac'] Else Writeln ['Khong thoa man!']; Readln; END.Bài 16: Đếm các số theo điều kiện và tính tổng
Nhập số N bất kỳ. Đếm các số lớn hơn 10 và nhỏ hơn 20 rồi tính tổng của chúng. Sau đó, đưa ra màn hình "So cac so >10 va