Program HOC24;
Var i: integer;
a: array[1..32000] of integer;
t: longint;
begin
t:=0;
for i:=1 to 20 do
begin
write('Nhap so thu ',i,' : '); readln(a[i]);
if a[i] mod 2<>0 then t:=t+a[i];
end;
write('Tong cac so le trong 20 so do la : ',t);
readln
end.
viết chương trình sử dụng bến mảng nhập vào 1 dãy a gốm n số nguyên (n được nhập từ bàn phím). Tính tổng các số nguyên âm có trong dãy
Nhập từ bàn phím 1 dãy n số nguyên. Viết chương trình in ra màn hình các số lể có trong dãy.
Viết chương trình nhập hai số nguyên a,b bất kỳ từ bàn phím. Tính tích, thương của 2 số nguyên vừa nhập
viết chương trình nhập vào từ bàn phím 3 số nguyên bất kì.In ra màn hình trung bình cộng của 3 số đó
viết chương trình nhập vào 1 dãy số gồm 5 số nguyên bất kì từ bàn phím hiển thị 5 số đó theo hàng dọc
Viết chương trình nhập vào số nguyên dương N (1<N<10^10) từ bàn phím, Hãy sắp xếp lại các chữ số của N sao cho ta được số lớn nhất, in kết quả ra màn hình
viết chương trình pascl nhập vào ba số a, b, c và in ra màn hình tích cảu ba số đó ? ( với a b c là số nguyên bất kì được nhập từ bàn phím )
cảm ơn mọi người rất nhiều
Bài 9: Hãy viết chương trình nhập từ bàn phím hai số a, b. Hãy tính kết quả c là phép chia lấy phần dư, d là phép chia lấy phần nguyên
bài 1 : Viết chương trình tính diện tích, chu vi hình chữ nhật biết độ dài các cạnh của hình chữ nhật là các số dương được nhập từ bàn phím.In ra màn hình điện tích của chu vi của nó
Bài 2: Viết chương trình tính diện tích và chu vi của hình tròn biết bán kính của hình tròn là số dương được nhập từ bàn phím.
( Help meeeeeeeee!!!!!!!!!!!!!! lưu ý, giải câu nào cx đc ạ, 2 câu thì mik càng cảm ơn ^^)
Viết chương trình tính tiền điện hàng tháng với đơn giá
1Kw = 2000đ. Biết rằng chỉ số đầu và chỉ số cuối được nhập từ bàn phím.
