Bài 1 viết chư ơng trình pascal nhập vào 2 số nguyên m và n đưa ra màn hình tổng số chia hết cho 3 và 5 từ m đến N
Bài 3: Cấu trúc chương trình
uses crt;
var m,n,t,i:integer;
begin
clrscr;
repeat
write('Nhap n='); readln(n);
write('Nhap m='); readln(m);
until m<n;
t:=0;
for i:=m to n do
if (i mod 3=0) and (i mod 5=0) then t:=t+i;
writeln('Tong cac so chia het cho 3 va 5 trong khoang tu ',m,' toi ',n,' la: ',t);
readln;
end.
Đúng 1
Bình luận (0)
Nhập vào số nguyên dương
a) In ra màn hình các số chẵn và chia hết cho 4 trong khoảng từ 5 đến n
b) đếm và in ra màn hình có bao nhiêu số chia hết cho 7 trong khoảng từ 5 đến n
pascal 11
Xem chi tiết
uses crt;
var i,n,dem:integer;
begin
clrscr;
repeat
write('Nhap n='); readln(n);
until n>0;
writeln('Cac so chan va chia het cho 4 trong khoang tu 5 toi ',n,' la: ');
for i:=5 to n do
if (i mod 2=0) and (i mod 7=0) then write(i:4);
writeln;
writeln('Cac so chia het cho 7 trong khoang tu 5 toi ',n,' la: ');
dem:=0;
for i:=5 to n do
if i mod 7=0 then
begin
write(i:4);
inc(dem);
end;
writeln;
writeln('Co ',dem,' so chia het cho 7 trong khoang tu 5 toi ',n);
readln;
end.
Đúng 0
Bình luận (0)
Bài kt 1 tiết ai biết câu nào không bày em vs ạ. Em xin cả mơn trước ạ
1. Viết chương trình đếm số dòng tệp tin văn bản có tên là VANBAN.txt
2. Viết chương trình đọc và in ra màn hình nội dung tệp văn bản với tên VANBAN.txt (nội dung văn bản đã đc tạo ra từ trước nội dung gồm nhiều dòng)
3. Viết công thức từ trang 1 xâu nhập vào từ bàn phím
Lập chương trình để tính số mol photpho và oxi khi biết khối lượng của chúng tương ứng là mP và mO gam.
program bai1;
var mP,mO:longint;
lc:char;mol:real
begin
write('Ban muon tinh so mol cua P hay O ');
readln(lc);
if lc='P' then
begin
write('So mol cua P la ');readln(mP);
mol:=mP/M(PTK của P tự tính nha);
write('So mol la ',mol:4:2);
end;
mol của O tương tự
readln
end.
Đúng 0
Bình luận (0)