Var r,s,c:real;
Begin
Write('Nhap ban kinh r = ');readln(r);
S:=3.14*r*r;
C:=3.14*2*r;
Writeln('Chu vi la ',c:10:2);
Write('Dien tich la ',s:10:2);
Readln;
End.
Var r,s,c:real;
Begin
Write('Nhap ban kinh r = ');readln(r);
S:=3.14*r*r;
C:=3.14*2*r;
Writeln('Chu vi la ',c:10:2);
Write('Dien tich la ',s:10:2);
Readln;
End.
Viết chương trình tính chu vi và diện tích hình chữ nhật có chiều dài a , chiều rộng b được nhập vào từ bàn phím
viết chương vtrình nhập n từ bàn phím ( với n thuộc N*). Tính tổng các số lẻ liên tiếp đén n và in kết quả ra màn hình. 9Suwr dụng câu lệnh lặp For...do)
viết chương vtrình nhập n từ bàn phím ( với n thuộc N*). Tính tổng các số chẵn liên tiếp đến n và in kết quả ra màn hình. Sử dụng câu lệnh lặp For...do)
Viết chương trình thực hiện việc nhập từ bàn phím hai số nguyên dương A và B (A<B), tính và đưa ra màn hình tổng các số chia hết cho 3 hoặc 5 trong phạm vi từ A đến B.
Viết chương trình nhập một mảng số nguyên gồm 5 phần tử. Sau đó tính tích các phần tử là số âm và chia hết cho 2 , rồi in kết quả ra màn hình.
Viết chương trình nhập N số thực vào từ bàn phím, in ra màn hình giá trị nhỏ nhất và tích các giá trị của N số đã nhập vào.
Viết chương trình nhập n số nguyên từ bàn phím. In ra màn hình các số vừa nhập và đếm xem trong n số đó có bao nhiêu số lớn hơn 10 và nhỏ hơn 20
Mọi người giúp em bài này với ạ, em mới biết làm chỗ in ra màn hình các số vừa nhập thôi ạ!
Bài 1: VCT nhập vào 1 dãy số nguyên từ bàn phím và in các phần tử của dãy số đó ra màn hình
Bài 2: VCT nhập vào 1 dãy số từ bàn phím tính tổng dãy số đó và in kết quả ra màn hình
Bài 3: VCT nhập vào 1 dãy số từ bàn phím tính tổng các số chẵn của dãy số đó và in kết quả ra màn hình
( làm giúp em lẹ ạ, mai e phải nộp rồi )
viết chương trình in ra màn hình dòng chữ tên hs _lop và nhập vào 3 số nguyên a,b,c từ bàn phím và thực hiện các công việc sau
a) tính tổng a,b,c
b) tính tích a,b,c
c)cho biết a là số chẵn hay lẻ
Viết chương trình tính tổng vào tích của n số nguyên được nhập từ bàn phím