uses crt;
const fi='baitap.inp'
var f1:text;
a,b,i,t:integer;
begin
clrscr;
assign(f1,fi); reset(f1);
readln(f1,a,b);
t:=0;
for i:=a to b do
if i mod 2=0 then t:=t+i;
writeln(t);
close(f1);
readln;
end.
uses crt;
const fi='baitap.inp'
var f1:text;
a,b,i,t:integer;
begin
clrscr;
assign(f1,fi); reset(f1);
readln(f1,a,b);
t:=0;
for i:=a to b do
if i mod 2=0 then t:=t+i;
writeln(t);
close(f1);
readln;
end.
cho hai số nguyên a, b được đọc từ tệp baitap.inp, viết chương trình tính thương của hai số, tính tổng các số có trong khoảng từ a đến b , tính tích các số lẽ khoảng từ a đến b.
viết chương trình nhập từ bàn phím số nguyên dương N( N<=100) và dãy số nguyên A1,A2,...An có trị tuyệt đối nhỏ hơn 1000. Đưa ra màn hình các thông tin sau :
a. Tổng số nguyên chẵn , tổng số nguyên lẻ của dãy số.
b.Tổng giá trị của dãy số .
ai giúp em với ạ, em xin cám ơn
Viết chương trình tính tổng các số lẻ và là bội của 7 trong phạm vi từ 1 đến M
Viết chương trình nhập từ bàn phím số nguyên n đưa ra màn hình tổng các số tự nhiên nhỏ hơn n và chia hết cho 2 và chia hết cho 3.
1. Viết chương trình nhập vào 2 số nguyên a và b từ bàn phím. Tính tổng của 2 số đó và ghi kết quả tổng vào tệp Ketqua.txt trong ổ E:\ .
2. Viết chương trình đọc 2 số nguyên từ tệp dulieu.txt trong ổ E:\ . Sau đó, tính tổng của 2 số và xuất kết quả tổng ra màn hình Pascal
Mong mọi người ráng giúp đỡ em ạ , em cảm ơn mọi người nhiều
viết chương trình nhập vào bàn phím số nguyên dương N.Hãy đưa ra màn hình trung bình cộng các số chẵn trong phạm vi từ 1 đến N
Bài 1: viết chương trình in ra các số chẵn là bội của 7 và nhỏ hơn hoặc bằng số nguyên dương N (với N được nhập). Yêu cầu nhập lại nếu a<=0.
Bài 2: Cho 2 số tự nhiên n,m. Viết chương trình tính tổng và tích cuả m chữ số cuối cùng của n.
Giup mình với ạ! mình cảm ơn!
viết phương trình python tìm nghiệp của phương trình ax+b=0 với a, b là hai số nguyên được nhập từ bàn phím. In ra " phương trình vô số nghiệm", " phương trình vô nghiệm" cho các trường hợp tương ứng. Nếu có nghiệm thì lấy 4 chữ số sau dấu phẩy