Question

[trang huynh]

Mn người ơi giúp mình giải các bài này nha mai mik thi tin rồi

Câu 1:Chương trình sau đây có hợp lệ không?Nếu không hãy chỉnh sửa lại cho hoàn chỉnh

Program tingtong;

Begin

Writeln('nhap sp nguyen duong a:'); Readln(a)

Writeln('nhap sp nguyen duong b:'); readln(b)

S:=a+b

Writeln('tong hai so nguyen duong a va b la:',S:2:2)

Readln

Var a,b: integer;

S:real

End.

Câu 2: viết chương trình tính chu vi và diện tích hình tròn,biết bán kính đc nhập từ bàn phím.

Câu 3:chương trình sau đây có hợp lệ không?nếu không hãy chỉnh sửa lại cho hoàn chỉnh

Program tinhhieu;

Begin

Writeln('nhap sp nguyen duong a:'); readln(a);

Writeln('nhap sp nguyen duong b:');

readln(b);

S:=a-b

Writeln('hieu hai so nguyen duong a va b la:',S:2:2)

Readln

Var a,b: integer;

S: real;

End.

Câu 4: viết chương trình tính diện tích hình thang, biết rằng chiều cao bằng 5, đáy lớn và đáy bé đc nhập từ bàn phím

Câu 5:viết chương trình cho biết chữ số hàng trăm ,hàng chục ,hàng đơn vị của một số có ba chữ số.Ví dụ khi nhập số 357 thì máy in ra:

-chữ số hàng trăm:3

-chữ số hàng chục:5

-chữ số hàng đơn vị:7

Câu 6: viết chương trình giải phóng phương trình ax+b=0(các hệ số a,b đc nhập từ bàn phím)

Câu 7:viết chương trình nhập vào ba số thực dương và thông báo ra màn hình kết quả là ba số đó có phải là ba cạnh của tam giác không?

Cảm ơn trước luôn nha

Answer 1

[Lê Minh Thư]

câu 2:

program hinhtron;

uses crt;

var r,dt,cv:real;

const pi=3.14;

begin

clrscr;

writeln('Nhap ban kinh:');readln(r);

dt:=pi*r*r;

cv:=3*pi*r;

writeln('Chu vi hinh tron la:',cv:10:2);

writeln('Dien tich hinh tron la:',dt:10:2);

readln

end.