1.tính tổng s=1+2+3+….N (N nhập từ bàn phím)
2. Viết chương trình nhập vào 2 số M N (M { "@context": "https://schema.org", "@type": "QAPage", "mainEntity": { "@type": "Question", "name": " 1.tính tổng s=1+2+3+-N (N nhập từ bàn phím) 2. Viết chương trình nhập vào 2 số M N (MBình luận
1.
uses crt; var n,i,s:longint; begin clrscr; write(‘n= ‘);readln(n); for i:=1 to n do s:=s+i; writeln(‘S= ‘,s); readln end.
2.
uses crt; var n,m,i,d:longint; begin clrscr; write(‘m,n= (m<n) ‘);readln(m,n); for i:=m to n do if i mod 2=0 then inc(d); writeln(‘Co ‘,d,’ so chia het cho 2 trong pham vi tu m den n’); readln end.
1.
uses crt;
var n,i,s:longint;
begin
clrscr;
write(‘n= ‘);readln(n);
for i:=1 to n do
s:=s+i;
writeln(‘S= ‘,s);
readln
end.
2.
uses crt;
var n,m,i,d:longint;
begin
clrscr;
write(‘m,n= (m<n) ‘);readln(m,n);
for i:=m to n do
if i mod 2=0 then inc(d);
writeln(‘Co ‘,d,’ so chia het cho 2 trong pham vi tu m den n’);
readln
end.