Question

1) Viết chương trình tính a/b với a,b đc nhập vào từ bàn phím

2) viết chương trình kiểm tra a là số chẵn hay lẻ vs a được nhập vào từ bàn phím

3) viết chương trình kiểm tra a,b,c có phải số đo ba cạnh tam giác vs a,b,c được nhập vào từ bàn phím

Answer 1

Câu 2:

uses crt;

var a : integer;

begin clrscr;

write('Nhap so a='); readln(a);

If a mod 2 = 0 then write('a la so chan') else write('a la so le');

readln

end.

Answer 2

Câu 1 :

uses crt;

var a,b,T : real;

begin clrscr;

write('Nhap hai so a,b lan luot la;'); readln(a,b);

T:= a/b;

writeln('T=',T);

readln

end.

Câu 2:

uses crt;

var a : integer;

begin clrscr;

write('So a='); readln(a);

If (a mod 2 = 0) then write('a la so chan') else write('a la so le');

readln

end.

Câu 3 :

uses crt;

var a,b,c : real;

begin clrscr;

write('Nhap ba so a,b,c='); readln(a,b,c);

If (a+b<c) or (a+c<b) or (b+c<a) then write('a,b,c khong la so do ba canh tam giac') else writeln('a,b,c la so do ba canh cua tam giac');

readln

end.

Answer 3

Câu 1:

uses crt;

var a,b:integer;

thuong:real;

begin

clrscr;

write('nhap so bi chia: '); readln(a);

write('nhap so chia: '); readln(b);

if b<>0 then begin

thuong:=a/b;

writeln('thuong cua phep chia ',a,' cho ',b,' la: ',thuong:4:2);

end

else writeln('vui long nhap so chia khac 0');

readln;

end.

Câu 2:

uses crt;

var a:integer;

begin

clrscr;

write('a='); readln(a);

if a mod 2=0 then writeln(a,' la so chan')

else writeln(a,' la so le');

readln;

end.

Câu 3:

uses crt;

var a,b,c:integer;

begin

clrscr;

write('nhap a='); readln(a);

write('nhap b='); readln(b);

write('nhap c='); readln(c);

if (a>0) and (b>0) and (c>0) then

begin

if (a+b>c) and (a+c>b) and (b+c>a) then writeln('day la 3 canh trong mot tam giac')

else writeln('day khong la 3 canh trong mot tam giac');

end

else writeln('vui long nhap 3 so nguyen duong');

readln;

end.

Answer 4

Câu 1 :

uses crt;

var a,b,T : real;

begin clrscr;

write('Nhap hai so a,b lan luot la;'); readln(a,b);

T:= a/b;

writeln('T=',T);

readln

end.

Câu 2:

uses crt;

var a : integer;

begin clrscr;

write('So a='); readln(a);

If (a mod 2 = 0) then write('a la so chan') else write('a la so le');

readln

end.

Câu 3 :

uses crt;

var a,b,c : real;

begin clrscr;

write('Nhap ba so a,b,c='); readln(a,b,c);

If (a+b<c) or (a+c<b) or (b+c<a) then write('a,b,c khong la so do ba canh tam giac') else writeln('a,b,c la so do ba canh cua tam giac');

readln

end.