uses crt;
var i,n,s:integer;
begin
clrscr;
readln(n);
s:=0;
for i:=1 to n do s:=s+i;
writeln(s);
readln;
end.
Đúng 0
Bình luận (0)
Các câu hỏi tương tự
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 ạ
mọi người giúp mình
Sửa lỗi chương trình sau
Program bang_cuu_chuong
Uses crt;
Var N: read;
i: integer;
Begin
clrscr;
write('Nhap so N=');readln(N);
writeln;
writeln('Bang nhan ',N)
writeln;
for i:=1 to 10 do
writeln(N,' x ',i:2,' = ',N')
readln
end.
Program bai; Var n,i: integer; A: Array[1..50]of integer; Begin Writa('nhap n='); Readln(n); For i:=1 to n do begin wrote ('A[' ,i, ']='); readln(A[i]); end; For i:=1 to n do if A[i]>0 then write(a[i], ' '); Readln; End. Biến n,i trong chương trình trên dùng dể làm gì?
Câu 1: Hãy điền vào chỗ trống để được một chương trình đúng:
Program tinh_tich;
Var i: integer;
s: ………….;
Begin
s:= ……..;
for i:= 1 to 10 … s:= s*1/i;
writeln ('tich ',……...);
readln;
End.
Program bai; Var n,i: integer; A: Array[1..50]of integer; Begin Writa('nhap n='); Readln(n); For i:=1 to n do begin wrote ('A[' ,i, ']='); readln(A[i]); end; For i:=1 to n do if A[i]>0 then write(a[i], ' '); Readln; End. Mảng A trong chương trình trên có số phần tử tối đa là bao nhiêu
Tìm và sửa lỗi cho chương trình sau:Bài 1:Program bai 1;Var x; n: integer;Begin X12 Write(n:4,x:4);ReadInEnd.Bài 2:Program 2bai;Var i, n, s:real;Begin S:0 For i:0.5 to n do SS+i; Write(s); ReadInEnd.
Đọc tiếp
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.
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(i1)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-imax then max:j-i; end; writeln(max); readlnend.đây là bài cô mk chữa mà mk chưa hiểu lắm giải nghĩ...
Đọc tiếp
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 ạ
14 tháng 3 2022 lúc 20:22
Câu 6: Trong đoạn chương trình sau, có mấy câu lệnh được lặp lại?S : 0; dem : 0; n : 10;While dem n doBegindem : dem +1;Write(‘ Nhap so X’,dem,’’);Readln(X);S : S + X ;end;A. 0 B. 1 C. 3 D. 4 ét o ét bà con cô chú ơi ét o ét, ét o ét é é é é é
Đọc tiếp
Câu 6: Trong đoạn chương trình sau, có mấy câu lệnh được lặp lại?
S := 0; dem := 0; n := 10;
While dem > n do
Begin
dem := dem +1;
Write(‘ Nhap so X’,dem,’=’);Readln(X);
S := S + X ;
end;
A. 0 B. 1 C. 3 D. 4
ét o ét bà con cô chú ơi ét o ét, ét o ét é é é é é
Tìm và sửa lỗi trong chương trình pascal sau: Uses crt; Var i, n, t : integer; Begin clrscr; write(Nhap so n ); readln(n); i : l; t : 0; while i n do begin t : t + i; i : i + l; write(Tong , t); Readln; end.
Đọc tiếp
Tìm và sửa lỗi trong chương trình pascal sau:
Uses crt;
Var i, n, t : integer;
Begin
clrscr;
write('Nhap so n = '); readln(n);
i := l; t := 0;
while i <= n do
begin
t := t + i;
i := i + l;
write('Tong = ', t);
Readln;
end.