Question

dựa vào thuật toán sau viết chương trình pascal

Bước 1: s <-- 0; n<--0;

Bước 2: Nếu n>=5 thì chuyển tới bước 4

Bước 3: n<-- n+1; S<-- S+n và quay lại bước 2

Bước 4: In giá trị S và kết thúc thuật toán

Answer 1

Var i,n,s:integer;

begin

readln(s,n);

s:=0;

n:=0;

if n <= 5 then n:=n+1;

s:=s+n;

writeln(s);

readln;

end.

Answer 2

uses crt;

var n,s:integer;

begin

clrscr;

s:=0; n:=0;

while n<5 do

begin

n:=n+1;

s:=s+n;

end;

write('s=',s);

readln;

end.