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.
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)
program Tinh_toan;
uses crt;
var x,y: integer;
tb: real;
thongbao: string;
const a = 2;
begin
clrscr;
thongbao:= 'Trung binh cong cua hai so x va y la: ';
write('Nhap gia tri cho x= ');readln(x);
write('Nhap gia tri cho y= ');readln(y);
tb:= (x + y) / a;
writeln(thongbao, tb:2:1);
readln
end.
B)
- Các tên biến là: x, y, tb, thongbao
_ Tên hằng là: a
Program HOC24;
var i,n,s: integer;
begin
writeln('Chuong trinh tinh tong S = 1 + 2 +3 +...+ n');
write('Nhap so n;'); readln(n);
s:=0; i:=1;
while i<n do
begin
s:=s+i;
i:=i+1;
end;
writeln('Tong cua ',n,' so tu nhien dau tien s = ',s);
readln
end.
uses crt;
var i,n,s:integer;
begin
clrscr;
write('Nhap n='); readln(n);
s:=0;
i:=0;
while i<=n do
begin
i:=i+1;
s:=s+i;
end;
writeln(s);
readln;
end.
Lỗi: "program tinh_a_mu_ng" sửa lại: program tinh_a_mu_ng;
Lỗi: gia tri sửa lại: giatri
Lỗi: readin(n) sửa lại: readln(n);
Lỗi: i:=1 sửa lại: i:=1;
Lỗi: while i < n do sửa lại: while i <= n do
Lỗi: i:=i+2 sửa lại: i:=i+1;
Lỗi: writeln('a mu n bang : ", giatri); sửa lại: writeln('a mu n bang : ', giatri);