Bài 7. Câu lênh lặp

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
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

Nguyễn Lê Phước Thịnh
18 tháng 2 2020 lúc 21:28

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.

Khách vãng lai đã xóa

Các câu hỏi tương tự
Lan Phương
Xem chi tiết
nguyễn bảo nga
Xem chi tiết
Thư Uyên
Xem chi tiết
Phan Thị Ka
Xem chi tiết
hoangvinh
Xem chi tiết
Ngọc Nguyễn
Xem chi tiết
DinoDrang
Xem chi tiết
Lê Đăng Khôi
Xem chi tiết
Maiiii
Xem chi tiết