cho các đoạn chương trình sau:
a) S:=1; For i:=1 to 8 do S:=S+5
Writeln (S'='=S);
b) i:=1; S:=0 ; While S<10 do
Begin S:=S+2; i:=i+1; End;
Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
1/
Giá trị sau khi chạy đoạn chương trình là:
2/ Tương tự, có lẽ là ntn đúng không:
a:=3 ;b:=3;c:=0; if a=b then c:=a-b+1 else c:=c+1;
KQ: 1
1: sau khi thực hiện cau lệnh thì giá trị của a=16
2:sau khi thực hiện chương trình trên thì giá trị của c=2
uses crt;
var s,n:integer;
begin
clrscr;
s:=0;
n:=0;
while s<=50 do
begin
n:=n+1;
s:=s+n;
end;
writeln(n);
writeln(s);
readln;
end.