Question

[Ngọc Phương Phạm Thị]

1. Nhập 3 số a , b , c bất kì . Hãy kiểm tra xem ba số đó có thể là độ dài ba cạnh của
một tam giác VUÔNG hay không ? Thông báo lên màn hình kết quả kiểm tra.

2. Viết chương trình in ra tất cả các ước chẵn của một số n (Với n được nhập từ bàn
phím)

3. In bảng cửu chương 2n

4. Viết chương trình nhập vào 1 số N nguyên dương và in ra màn hình các số lẻ từ 0
đến N.

5. Nhập 4 số nguyên a, b, c, d từ bàn phím, in ra số lớn nhất.

MONG NHẬN ĐƯỢC SỰ GIÚP ĐỠ TỪ CÁC BẠN

Answer 1

[Nguyễn Lê Phước Thịnh]

Bài 1:

uses crt;
var a,b,c:real;
kt:boolean;
begin
clrscr;
write('a='); readln(a);
write('b='); readln(b);
write('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
begin
kt:=false;
if sqr(a)=sqr(b)+sqr(c) then kt:=true;
if sqr(b)=sqr(a)+sqr(c) then kt:=true;
if sqr(c)=sqr(a)+sqr(b) then kt:=true;
if kt=false then writeln('day khong la ba canh trong mot tam giac vuong')
else writeln('day la ba canh trong mot tam giac vuong');
end
else writeln('day khong la ba canh trong mot tam giac');
end
else writeln('vui long nhap ba so duong');
readln;
end.

Bài 2:

uses crt;
var n,i:integer;
begin
clrscr;
write('n='); readln(n);
for i:=1 to n do
if (n mod i=0) and (i mod 2=0) then write(i:4);
readln;
end.

Bài 3:

uses crt;
var n,i,j:integer;
begin
clrscr;
write('n='); readln(n);
for i:=2 to n do
begin
writeln('bang cuu chuong ',i,' la: ');
for j:=1 to 10 do
write(j*i,' ');
writeln;
end;
readln;
end.

Bài 4:

uses crt;
var n,i:integer;
begin
clrscr;
write('n='); readln(n);
if n>0 then
begin
for i:=0 to n do
if i mod 2=1 then write(i:4);
end
else writeln('vui long nhap n la so nguyen duong');
readln;
end.

Bài 5:

uses crt;
var a,b,c,d,max:integer;
begin
clrscr;
write('a='); readln(a);
write('b='); readln(b);
write('c='); readln(c);
write('d='); readln(d);
max:=a;
if max<b then max:=b;
if max<c then max:=c;
if max<d then max:=d;
writeln('so lon nhat la: ',max);
readln;
end.