uses crt;
var a,t,dem:integer;
begin
clrscr;
t:=0;
dem:=0;
repeat
write('Nhap a='); readln(a);
if (a mod 2=0) and (a mod 3=0) then
begin
t:=t+a;
dem:=dem+1;
end;
until a=0;
writeln('Trung binh cong cua cac so chia het cho 3 va 2 la: ',t/dem:4:2);
readln;
end.
Viết chương trình nhập từ bàn phím số nguyên dương N
Đưa ra màn hình số lượng các số lẻ chia hết cho 5 trong phạm vi từ 1 đến N (ghi một cách rõ ràng nha )
Viết chương trình cho phép nhập từ bàn phím 2 biến M, N (M<N) . Hãy cho biết có bao nhiêu số chia hết cho 3 và( hoặc ) 5 trong phạm vi từ M đến N
Nhập vào 100 số nguyên dương từ bàn phím in ra màn hình các số vừa nhập và đếm số lượng các số chẵn
viết chương trình nhập vào một dãy số nguyên có tối đa 50 phần tử vào biếng mảng A thực hiện các việc sau:
+tính tổng các phần tử của dãy số vừa nhập
+in ra các số lẻ vừa nhập và tính tổng của chúng(số lẻ không chia hết cho 2)
+in ra các số chẵn vừa nhập và tính tổng của chúng ( số chẵn là số chia hết cho 2)
Giúp em với ạ!!!
Viết chương trình tính \(S=1+\dfrac{1}{2}+\dfrac{1}{3}+\dfrac{1}{4}+...+\dfrac{1}{n}+...\)cho đến khi S>a với a là một số cho trước n là một số nguyên dương (ghi rõ ràng được không ạ)
Nhập xâu S vào từ bàn phím rồi tính tổng các số trong xâu S và đưa kết quả ra màn hình.
Lưu ý : "Số" khác với "chữ số".
Ví dụ : Nếu nhập xâu 'awjir1ui125j62kj61ji52' thì tổng sẽ là
T = 1+125 + 62 + 61 + 52 = 301
Viết chương trình nhập vào 1 dãy số nguyên không quá 100 kí tự đếm và in ra màn hình các số chia hết cho 3
Em cám ơn ạ
