uses crt;
var m,n,t,t1,i:integer;
begin
clrscr;
repeat
write('m='); readln(m);
write('n='); readln(n);
if m>=n then writeln('ban da nhap sai,yeu cau ban nhap lai');
until m<n;
t:=0;
t1:=0;
for i:=m to n do
begin
if i mod 3=0 then t:=t+i;
if i mod 5=0 then t1:=t1+i;
end;
writeln('tong cac so chia het cho 3 trong day so tu ',m,' toi ',n,' la: ',t);
writeln('tong cac so chia het cho 5 trong day so tu ',m,' toi ',n,' la: ',t1);
readln;
end.
Nhập vào 2 số nguyên dương N,M tính tổng các số nguyên dương là ước ít nhất của 1 số trong đoạn từ n đến m Dữ liệu vào 9 12 Dữ liệu ra 63
Viết chương trình nhập vào một số nguyên dương n. Tính và in ra màn hình tổng các số từ 1 đến n thỏa mãn điều kiện không chia hết cho 3. *
Viết chương trình nhập vào một số nguyên dương n. Tính và in ra màn hình tổng các số từ 1 đến n thỏa mãn điều kiện không chia hết cho 3
1. Viết chương trình tính tổng các số nguyên tố từ 1 đến 100 2.Số nguyên dương P được gọi là ước thực sự của số nguyên n nếu n chia hết cho P và P khác 1 và khadc chính số n . Viết thuật toán và chương trình nhập số tự nhiên n và tính tổng của nó
Bài 1: Viết chương trình nhập số nguyên dương n. Tính tổng các số chẫn chia hết cho 3 nhỏ hơn hoặc bằng n
Bài 2: Viết chương trình nhập vào 3 số nguyên dương a, b, c. Tìm ước chung lớn nhất của 3 số
2.viết chương trình nhập vào số nguyên dương n. A. Tìm và in ra màn hình các số từ 1 đến n chia hết cho 2. .B. tìm và in ra màn hình số từ 1-n ko chia hết cho 2
Bài 1:Viết chương trình tính tổng các số chẵn từ 1 đến n ( n nhập từ bàn phím).Đồng thời in ra các số vừa chia hết cho 3 vừa chia hết cho 5 trong khoảng từ 1 đến n.
Bài 2:VCT nhập vào n số nguyên x(n nhập vào từ bàn phím).In ra các số nguyên nhỏ hơn 0 và tính tổng các số nguyên chẵn.
1, Viết chương trình pascal sử dụng biến mảng để nhập từ bàn phím 1 dãy gồm N số nguyên rồi tính tổng các số trong dãy vừa nhập. ( với N cũng được nhập từ bàn phím) VD: N=10 A={5,6,15,24,16,17,3,7,12,21} Tổng các số=126
2, Viết chương trình pascal sử dụng biến mảng để nhập từ bàn phím 1 dãy gồm N số nguyên rồi tính tổng các số chẵn trong dãy vừa nhập. ( với N cũng được nhập từ bàn phím) VD: N=10 A={5,6,15,24,16,17,3,7,12,21} Tổng các số chẵn=58
3, Viết chương trình pascal sử dụng biến mảng để nhập từ bàn phím 1 dãy gồm N số nguyên rồi tính tổng các số lẻ trong dãy vừa nhập. ( với N cũng được nhập từ bàn phím) VD: N=10 A={5,6,15,24,16,17,3,7,12,21} Tổng các số lẻ=68
4, Viết chương trình pascal sử dụng biến mảng để nhập từ bàn phím 1 dãy gồm N số nguyên rồi tính tổng các số dương trong dãy vừa nhập. ( với N cũng được nhập từ bàn phím) VD: N=10 A={5,-6,15,-24,16,-17,3,7,-12,21} Tổng các số dương=67 giúp vs ah!!! mk đg cần gấp, camon!!!
