Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
Program HOC24;
var i,n,s: integer;
begin
writeln('Chuong trinh tinh tong S = 1 + 2 +3 +...+ n');
write('Nhap so n;'); readln(n);
s:=0; i:=1;
while i<n do
begin
s:=s+i;
i:=i+1;
end;
writeln('Tong cua ',n,' so tu nhien dau tien s = ',s);
readln
end.
uses crt;
var i,n,s:integer;
begin
clrscr;
write('Nhap n='); readln(n);
s:=0;
i:=0;
while i<=n do
begin
i:=i+1;
s:=s+i;
end;
writeln(s);
readln;
end.
a) tính tổng các số chẵn từ 1 đến 50
b)
(3): lệnh viết kq của ct trên.
(4):lệnh in ra màn hình kq của bài toán.
(5):lệnh kết thúc ct.
var s,n:integer;
begin
s:=0;
n:=1;
while s<=100 do
begin
s:=s+n;
n:=n+1;
end;
writeln('So n nho nhat de tong>100 la: ',n);
writeln('Tong dau tien >100 la: ',s);
readln;
end.
uses crt;
var i:integer; s:real;
begin
clrscr;
s:=1;
for i:=1 to 10 do s:=s*1/i;
writeln(s:4:2);
readln;
end.
