Question

[Bùi Phương Thảo]

Viết chương trình S= 10+15+20+25+......+n (với n chia hết cho 5) A= S/3 In kết quả S In kết quả A ( A làm tròn đến chữ số thứ nhất phần thập phân)

Answer 1

[Nhung]

program tinh;

uses crt;

var S,i,n:integer;

      A: real;

begin

clrscr;

write('Nhap n: '); readln(n);

i:=10;

S:=0;

for i:10 to n do

begin

S:=S+i;

i:=i+5;

end;

S:=S+n; 

A:=S/3;

write('Ket qua cua S la: ',S);

writeln;

write('Ket qua cua A la: ',A:1:1);

readln;

end.