bn có thể lm cho dãy số âm và dương chug 1 hàng đc ko

cầu xin

uses crt;

var i,t:integer;

begin

clrscr;

t:=0;

for i:=1 to 10 do

t:=t+i;

write(t);

readln;

end.

uses crt;
var n,i,t:integer;
begin
clrscr;
write('Nhap n='); readln(n);
i:=0;
t:=0;
while i<=n do
begin
t:=t+i;
i:=i+2;
end;
writeln(t);
readln;
end.

 lại có 2 lần end

uses crt;
var s:real;
a:integer;
begin
clrscr;
a:=10;
while a<=100 do
begin
s:=s+a/(a+1);
inc(a);
end;
writeln('S=',s:4:2);
readln;
end.

Program HOC24;

var i: integer;

s: real;

begin

s:=0;

for i:=10 to 100 do

s:=s+i/(i+1);

write('S=',s:1:2);

readln

end.

Program HOC24;

var i: integer;

s: real;

begin

s:=0;

for i:=1 to 100 do

s:=s+i/100;

write('S=',s:1:2);

readln

end.

Câu hỏi của Ara T- - Tin học lớp 8 | Học trực tuyến (câu 1)

y trang luôn à cô

Hoàng Nguyến Ukm

Program HOC24;

var i: integer;

begin

for i:=1 to 10 do writeln(i,' x ',7,'=',i*7);

readln

end.

a)For i:=10 to 1 do x:=x+1

---> Lỗi : giá trị đầu lớn hơn giá trị cuối

b)For i:=1 to 5,5 do x:=x+1

---> Lỗi : Giá trị cuối không phải là kiểu dữ liệu số thực. (biếm đếm, giá trị đầu và giá trị cuối bắt buộc phải là kiểu dữ liệu số nguyên)

c)Var i: real

Begin for i:=1 to n do x:=x+1 end;

---> Lỗi : Biến i phải khai báo sai kiểu dữ liệu.( Biến i phải thuộc dữ liệu số nguyên vì i là biến đếm)