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 đọc từ tệp BAITAP.INP hai số nguyên a,b (a<b).
in ra màn hình tổng các số chẵn trong phạm vi từ a đến b
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 số nguyên n. Viết chương trình tính tổng các số lẽ có trong khoảng từ 1 đến n
uses crt;
var n,i,t:integer;
begin
clrscr;
write('Nhap n='); readln(n);
t:=0;
for i:=1 to n do
if i mod 3=0 then
begin
write(i:4);
t:=t+i;
end;
writeln;
writeln('Tong cac so chia het cho 3 la: ',t);
readln;
end.
Câu 1: Viết chương trình nhập vào số nguyên n có 2 chữ số (Nếu nhập sai thì nhập lại).
a) In ra các số chẵn từ 0 đến n
b) In ra các số lẽ từ 1 đến n
c) Tính tổng các số chẵn từ 0 đến n
d) Tính tổng các số lẻ từ 1 đến n
tệp sn.inp gồm các số nguyên dương ngăn cách nhau bởi ít nhất một dấu cách. các số nguyên là cạnh a,b của hình chữ nhật. viết chương trình đọc dữ liệu từ tệp sn.inp vào hai biến a,b. tính diện tích hình chữ nhật. ghi kết quả vào tệp cn.out
#include <bits/stdc++.h>
using namespace std;
long long a,b;
int main()
{
freopen("sn.inp","r",stdin);
freopen("cn.out","w",stdout);
cin>>a>>b;
cout<<a*b;
return 0;
}
Viết chương trình nhập vào hai số nguyên a,b. tính tổng các số chia hết cho 5 nhưng không chia hết cho 3 trong phạm vi từ a đến b
Viết chương trình:
Đọc từ tệp “DULIEU.TXT” 2 số nguyên M và N (M < N)
Tính tổng các số chia hết cho 5 trong phạm vi từ M đến N
Ghi kết quả ra tệp “KETQUA.TXT”.
Var f1, f2: text;
Tong, m, n, i: integer;
Begin
assign(f1, ‘DULIEU.TXT’);
reset(f1);
assign(f2, ‘KETQUA’);
rewrite(f2);
Tong;= 0;
read(f1, m, n);
for i:= m to n do
if i mod 2 = 0 then Tong:= Tong+i;
write(f2, Tong);
close(f1);
close(f2);
End.
Viết chương trình:
Đọc từ tệp “DULIEU.TXT” 2 số nguyên M và N (M < N)
Tính tổng các số chia hết cho 3 trong phạm vi từ M đến N
Ghi kết quả ra tệp “KETQUA.TXT”
Var f1, f2: text;
Tong, m, n, i: integer;
Begin
assign(f1, ‘DULIEU.TXT’);
reset(f1);
assign(f2, ‘KETQUA’);
rewrite(f2);
Tong;= 0;
read(f1, m, n);
for i:= m to n do
if i mod 2 = 0 then Tong:= Tong+i;
write(f2, Tong);
close(f1);
close(f2);
End.
Viết chương trình: Đọc từ tệp “DULIEU.TXT” 2 số nguyên M và N (M < N) Tính tổng các số chẵn trong phạm vi từ M đến N Ghi kết quả ra tệp “KETQUA.TXT”.
const fi='dulieu.txt'
fo='ketqua.txt'
var f1,f2:text;
m,n,i,t:integer;
begin
assign(f1,fi); reset(f1);
assign(f2,fo); rewrite(f2);
readln(f1,m,n);
t:=0;
for i:=m to n do
if i mod 2=0 then t:=t+i;
writeln(f2,t);
close(f1);
close(f2);
end.