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) Sai --> Program Chuong_trinh;
2) Đúng
3) Đúng
4) Đúng
5) Sai --> s:=s+1;
6) Sai -->i:=1+1;
7) Sai --> End;
8 và 9) Sai --> Writeln(s); và Readln;
10) Sai --> End.
Đúng thì like cho mình nha :)))
câu 1:
Var s, i: longint;
Begin
S := 0; //Thiếu dấu chấm phẩy ở đey
i := 1;
while s <= 5 do //Sửa lại điều kiện dừng vòng lặp và cộng thêm i vào s ở bên trong vòng lặp
begin
s := s + i;
i := i + 1;
end;
write('s = ', s);
end.
câu 2:
Var p, i, n: real;
Begin
Readln(n);
p := 1;
for i := 1 to n do //Sửa lại phần khai báo biến lặp và dấu bằng
begin
p := p * i / (i + 1);
end;
write('p = ', p);
end.
câu 3:
Var a: array [1..50] of longint;
n, s, i: real; //Thiếu dấu chấm phẩy ở đey
Begin
Readln(n);
For i := 1 to n do
begin
Readln(a[i]); //Sửa lại cách truy cập vào ptu của mảng
end;
S := 0;
For i := 1 to n do
begin
S := S + a[i];
end;
write('s = ', S); //Sửa lại tên biến trong write
end.
a) tính tổng các số chẵn từ 1 đến 50
b)
(3): lệnh viết kq của ct trên.
(4):lệnh in ra màn hình kq của bài toán.
(5):lệnh kết thúc ct.
A/ Sai.
Sửa: Var x:array[10..13] of integer;
B/ Sai.
Sửa: S:= 0; n:= 0; while S < 50 do
begin n:= n + 1; S:= S + n; end;
C/ Sai.
Sửa: for i:= 1 to 10 do writeln('A');
D/ Sai.
Sửa x: integer; begin for x:= 1 to 10 do writeln('A'); end.
a: Sai bởi chỉ số đầu lớn hơn chỉ số cuối
b: Sai vì chỉ số đầu, chỉ số cuối là số thực
c: Sai vì chỗ end thiếu chấm phẩy
d: Sai vì chỉ số đầu lớn hơn chỉ số cuối
e: Sai vì chỉ số đầu và chỉ số cuối là số thực
d: Đúng
