uses crt;
var a:integer;
begin
clrscr;
write('nhap a='); readln(a);
if a<>0 then
begin
if a>0 then write(a,' la so duong')
else write(a,' la so am');
end
else writeln(a,' khong la so duong cung khong la so am');
readln;
end.
câu 1 viết chương trình in ra màn hình diện tích và chu vi hình vuông s : =a*a; p:=4*a;
câu 2 viết chương trình tính tổng , tích và hiệu của hai số được nhập từ bàn phím
câu 3 viết chương trình kiểm tra 3 số a,b,c có là ba cạnh của một tam giác hay không với a,b,c là 3 số nhập từ bàn phím
Viết chương trình nhập 2 số x,y từ bàn phím.Kiểm tra số x có chia hết cho số y không?
Hãy viết mô tả thuật toán và viết chương trình pascal để thực hiện các công việc sau đây:
1 Nhập từ bàn phím 3 số thực a,b,c có giá trị bất kì.
2 Nếu a,b,c là các số dương thì kiểm tra a,b,c có phải độ dài tam giác hay không.
3 Trong trường hợp a,b,c là độ dài của tam giác , chương trình cần thông báo đó là tam giác thường , tam giác vuông ,tam giác cân hay tam giác đều.
Lớp 8A xin cảm ơn các bạn !
Gửi link và câu trả lời ở dưới phần commen của chương trình.
Xuất số a, b theo thứ tự tăng dần
CHƯƠNG TRÌNH PASCAL
MỌI NGƯỜI GIÚP MK VỚI Ạ MAI MÌNH KIỂM TRA MỘT TIẾT RÙI !!!!
hãy mô tả thuật toán và viết chương trình pasacal để thực hiện các công việc sau đây
nhập từ bàn phím 3 số thực a, b, c có giá trị bất kì
nếu a, b, c là các số dương thì kiểm tra a, b, c có phải độ dài tam giác , chương trình cần thông báo đó là tam giác thường , tam giác vuông , tam giác cân hay tam giác đều
viết phương trình nhập vào 3 số nguyên a,b,c, kiểm tra xem c có là ước chung của a và b hay không
viết chương trình Pascal nhập vào 2 số nguyên a và b từ bàn phím . Sau đó in ra tổng, hiệu, tích của a và b
mk đag cần gấp
Nhập vào từ bàn phím số nguyên dương A, B (1<=A,B<=10000). Xuất ra màn hình các kết quả sau đây: + Dòng 1: Ước chung lớn nhất của A+B và AB + Dòng 2: Số dư khi chia AB cho A+B
1. Kể tên các từ khóa trong Pascal và chức năng của chúng
2. Viết chương trình tính tổng hai số a và b. Trong đó a,b là các số tự nhiên nhập từ bàn phím
