Cho chương trình Tính Tổng Các Số Tự Nhiên Từ S=1+2+3+ ...... (Khi Tổng S đầu tiên > 1000 thì dừng). Hỏi cộng bao nhiêu số?
Hãy Tìm lỗi trong chương trình và sửa lỗi viết lại chương trình cho đúng:
Program tinh_tong;
Var n S: Integer
Begin
n: 0;
S = 0;
While S< 1000 do
n:= n + 1;
S:= S + n
Writeln(‘Can cong’,n-1,’so va tong dau tien > 1000 la’, S);
Readln;
End.
Em hãy sắp xếp chương trình tính tổng N số tự nhiên sau cho phù hợp?
Var N, i: integer;
Write(‘Nhap so N=’); s:=0;
S: Longint; readln(n);
For i:=1 to n do
Begin
Program tinh_tong;
S:=s+i;
Writeln(‘Tong cua ‘, N, ‘ So tu nhien dau tien s=’, s);
End.
Tìm lỗi sai của chương trình sau và sửa lại cho đúng:
Program câu 1;
Var n: Integer; s:real;
Begin
Writeln(‘ Nhap gia tri n=’); Readln;
S:=0;
While n >0 do
s:=s+n/2; n:=n-1;
write(‘tong s = ‘, s:8:2);
Readln;
End.
Mn giải giúp mik vs ạ. Mik cảm ơn ạ
Dựa vào đoạn chương trình sau, em hãy sử dụng cấu trúc 1 chương trình và các khai báo cần thiết để viết chương trình hoàn chỉnh đưa ra được giá trị biến S và số vòng lặp sau khi chạy chương trình S:=0; n:=0; while S<=50 do begin n:= n+1; S:= s+n end;
Câu 2: Đoạn chương trình sau có một vài lỗi sai, em hãy sủa lại cho đúng?
S:=0;n:=0;
while s<=10 do
n:=n+1;
s:=s+n;
Em hãy viết chương trình cho biết số từ của đoạn dài nhất liên tiếp các từ
có cùng độ dài của một đoạn văn bản cho trước.
uses crt;
var s:string; a:array[1..1000]of longint;
i,t,n,max,j:longint;
begin
clrscr;
write('s=');
readln(s);
n:=length(s);
t:=1;
For i:=1 to n do
If(s[i]<>' ')or(i=1)then
a[t]:=a[t]+1 else inc(t);
for i:=1 to t do
begin
j:=i;
while a[j]=a[i] do inc(j);
If j-i>max then max:=j-i;
end;
writeln(max);
readln
end.
đây là bài cô mk chữa mà mk chưa hiểu lắm giải nghĩa giúp mk với ạ
Tìm và sửa lỗi cho chương trình sau:
Bài 1:
Program bai 1;
Var x; n: integer;
Begin
X=12
Write(n:4,x:4);
ReadIn
End.
Bài 2:
Program 2bai;
Var i, n, s:real;
Begin
S:=0
For i:=0.5 to n do
S=S+i;
Write(s);
ReadIn
End.
Cho biết đoạn chương trình Pascal sau đây chương trình thực hiện bao nhiêu vòng lặp?
S:=0; n:=0;
while S<=3 do
begin
n:= n+1;
S:= s+n
end;
A. 3
B. 4
C. 5
D. 6
