Viết chương trình nhập vào 1 số nguyên dương n (100 { "@context": "https://schema.org", "@type": "QAPage", "mainEntity": { "@type": "Question", "name": " Viết chương trình nhập vào 1 số nguyên dương n (100
0 bình luận về “Viết chương trình nhập vào 1 số nguyên dương n (100<n<10000) Câu a: tính và in ra các tổng tất cả các số từ 1-n Câu b: In ra các số chia hết cho 3”
PROGRAM TONG_HOP;
USES CRT;
VAR N,K,A,TONG:INTEGER;
BEGIN
CLRSCR;
WRITELN(‘NHAP N:’);READLN(N);
A:=0;
TONG:=0;
K:=N;
FOR I:=1 TO N DO
BEGIN
TONG:=TONG + N MOD 10;
N:=N DIV 10;
END;
For i:=1 to K do
If (i mod 3= 0) then inc(a);
FOR i:=1 TO H DO
BEGIN
DEM:=DEM+ A MOD 10;
A:=A MOD 10;
END;
WRITELN(TONG);
WRITELN(A);
WRITELN(DEM);
READLN
END.