Tin học Pascal lớp 8

[Huyền Sheila]

[TẶNG BẠN] TRỌN BỘ Bí kíp học tốt 08 môn
Chắc suất Đại học top - Giữ chỗ ngay!!

ĐĂNG BÀI NGAY để cùng trao đổi với các thành viên siêu nhiệt tình & dễ thương trên diễn đàn.

a) Viết chương trình tính tổng 50 số tự nhiên bằng vòng lặp for ... to...do
b) Biến đổi chương trình tính tổng của 50 số tự nhiên đầu tiên ở câu 1 thành vòng lặp while..do

 

[pro3182001]

a)
S:=0;
for i:=1 to 50 do S:=S+i;
b) i:=1; S:=0;
while i<=50 do
begin S:=S+i;
i:=i+1;
end; .