Question

[Lê Tràn Diễm My]

Nhập số nguyên dương N(N<=100).viết chương trình tính tổng các số chia hết cho 5 trong phạm vi của N và lưu hay ghi trong tệp 'tong5.Txt' sao cho dòng đầu ghi số nguyên N dòng 2 ghi kết quả vừa tính đc

Answer 1

[Buddy]

a)

PROGRAM BAI1a;

VAR N, Tle, Tchan: integer;

BEGIN

          Write ('Nhap N =');

          Readln (N);

          If (N mod 2) = 0 Then

          Tle := N*((N - 2)/2 + 1)/2;

          Tchan := (N + 2)*((N - 2)/2 + 1)/2;

          If (N mod 2) = 1 Then

          Tle := (N + 1)*((N-1)/2 +1)/2;

          Tchan := (N + 1)*((N - 3)/2 + 1)/2;

          WRITELN ('Sle =', Sle, 'Schan =', Schan);

          READLN;

          END.

Answer 2

[Bùi Anh Tuấn]