viết chương trình đọc tệp ” du lieu Inp” 2 số nguyen M,N (M { "@context": "https://schema.org", "@type": "QAPage", "mainEntity": { "@type": "Question", "name": " viết chương trình đọc tệp ' du lieu Inp' 2 số nguyen M,N (M
0 bình luận về “viết chương trình đọc tệp ” du lieu Inp” 2 số nguyen M,N (M<N) tính tổng các số lẻ trong phạm vi từ M đến N ghi kết quả ra tệp "ket qua. out"”
Program ct;
Uses crt;
Var i,M, N :integer;
S:longint;
Begin clrscr;
Write(‘nhap 2 so M,N:’);
Readln(M,N);
S:=0;
For i:=M to N do
If i mod 2=0 then S:=S+i;
Writeln(‘nhap cac so:’, S);
Readln;
End.
Program ct;
Uses crt;
Var i,M, N :integer;
S:longint;
Begin clrscr;
Write(‘nhap 2 so M,N:’);
Readln(M,N);
S:=0;
For i:=M to N do
If i mod 2=0 then S:=S+i;
Writeln(‘nhap cac so:’, S);
Readln;
End.