1) Viết chương trình tính tổng 10 số tự nhiên đầu tiên
2) Viết chương trình tính tổng từ 1 đến 50
HELP ME !!!
1) Viết chương trình tính tổng 10 số tự nhiên đầu tiên 2) Viết chương trình tính tổng từ 1 đến 50 HELP ME !!!
By Nevaeh
By Nevaeh
1) Viết chương trình tính tổng 10 số tự nhiên đầu tiên
2) Viết chương trình tính tổng từ 1 đến 50
HELP ME !!!
Câu 1:
program bt;
uses crt;
var tong, i: byte;
begin
clrscr;
tong := 0;
for i := 1 to 10 do tong := tong + i;
writeln(‘Tong la=’, tong);
readln
end.
Câu 2:
program bt;
uses crt;
var S, i: integer;
begin
clrscr;
S := 0;
for i := 1 to 50 do S := S + i;
writeln(‘Tong la=’, S);
readln
end.
Bài 1
program tinh tong;
uses crt;
var s,i,n:integer;
begin
s:=0;
for i:=1 to 10 do s:=s+1;
writeln (‘tong cua s=’,s);
readin
end.
Bài 2
program tinh_tong
uses crt;
var i,n:integer;
S:longint;
begin
n:=50; S:=1;
for i:=1 to 50 do S: S+i;
write(‘ tong cua’,n,’ so tu nhien dau
,S); tien la ‘
readin.
end.
Mình gửi ảnh chứ vt ko đc