Question

Vẽ lưu đồ thuật toán

Viết chương trình nhập vào số nguyên dương n, hãy:

- In ra màn hình các số chia hết cho 3 trong phạm vi từ 1-n.

- In ra màn hình tổng các số chia hét cho 3 trong phạm vi từ 1-n

- In ra màn hình trung bình cộng các số chia hết cho 3 trong phạm vi từ 1-n

Answer 1

Var n,i,d,s:longint;

Tbc:real;

Begin

Repeat

Write('Nhap vao so n > 0 ');readln(n);

If n <= 0 then write('Nhap sai, nhap lai');

Until n > 0;

If n >= 3 then

Writeln('Cac so chia het cho 3 la');

For i:=1 to n do

Begin

If i mod 3 = 0 then

Begin

Write(i, ' ');

s:=s+i;

d:=d+1;

End;

End;

tbc:=s/d;

Writeln('Tong la ',s);

Write('Trung binh cong la ',tbc:10:2);

Readln;

End.