nhập số thực dương n in ra tổng các số thực dương từ 1 đến n thỏa mãn điều kiện lớn hơn 10 và bé hơn 20 hãy viết chương trình tin lớp 8
nhập số thực dương n in ra tổng các số thực dương từ 1 đến n thỏa mãn điều kiện lớn hơn 10 và bé hơn 20 hãy viết chương trình tin lớp 8
TH1: dùng for
program tinhtong;
uses crt;
var s,n,i:integer;
begin
clrscr;
write(‘Nhap n: ‘); readln(n);
s:=0;
for i:=11 to n do {như thế sẽ không cần kiểm tra điều kiện i>10 và vòng lặp sẽ nhanh hơn}
if i<20 then s:=s+i;
write(‘Tong cac so tu 1 den ‘,n,’ nhung lon hon 10 va be hon 20 la: ‘,s);
readln
end.
TH2: dùng while
program tinhtong;
uses crt;
var s,i,n:integer;
begin
clrscr;
write(‘Nhap n: ‘); readln(n);
s:=0; i:=11;
while (i<=n) and (i<20) do
s:=s+i;
{như thế sẽ nhanh hơn vì đã cho sẵn i>10 và nếu n lon hon 20 thì chỉ chạy tới 19 là dừng}
write(‘Tong cac so tu 1 den ‘,n,’ nhung lon hon 10 va be hon 20 la: ‘,s);
readln
end.
program vidu1;
var n ,i, s: integer;
begin
writeln(‘hay nhap so nguyên n:’);
readln(n);
s:= 0;
for i:=1 to n do
if (i<10) and (i>26) then (s:=s+i) ;
writeln ( ‘tong cac so thoa man yeu cau la : ‘, s);
readln;
end.
_Goodluck_