Viết chương trình tính và in ra màn hình tổng S sau s 5a 2b 3

program tinhtong;

uses crt;

var i, n : integer; S : real;

begin

clrscr;

writeln['Nhap so thu n: ']; readln[n];

S:=0; i:=1;

while i

Chủ Đề