Question

Viết chương trình pascal tính hiệu n số tự nhiên đầu tiên bằng câu lệnh for do và while do

Help me.....

Answer 1

Viết bình thường một lệnh cũng được mà, mình không biết làm 2 lệnh

program Tinh_hieu;

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('Hieu cua ',n,' so tu nhien dau tien S=', S);

readln

end.

Answer 2

program Tinh_hieu;

uses crt;

var i,n: integer;

S: longint;

begin

clrscr;

write('Nhap so n = ');readln(n);
i:=1;
S:=0;
while i<=n do

begin

S:=S-i;

end; writeln('Hieu cua ',n,' so tu nhien dau tien la ',S);
readln;
end.