Question

Viêt chương trình bao gồm câu lện lặp for do và while do

Answer 1

mình viết chương trình tính tổng nha!

1. for...do

program tinhtong;

var n,i:integer;

s:longint;

begin

write (' nhap so n='); readln(n);

s:=0;

for i:=1 to n do s:=s+i;

writeln('tong cua ',n,' so tu nhien dau tien s=',s);

readln

end.

2. while .... do

var i,n:integer;

s:longint;

begin

write('nhap so n='); readln(n);

i:=1;

s:=0;

while i<= n do

begin

s:=s+i; i:=i+1;

end;

write('tong cua ',n,' so tu nhien dau tien la',s);

readln

end.

Answer 2

pascal hay c++ bạn