Bài 7. Câu lênh lặp

Program tinhtong;

Var n,s,i: integer;

Begin

Write('Hay nhap gia tri cua n'); Readln(n);

s:=0;

For i:=1 to n do s:=1/(2*i+1);

Write('Vay gia tri cua S la: ',s);

End.

uses crt;
var i,n:integer;s:real;
begin
clrscr;
readln(n);
for i:=1 to n do
if i mod 2 <> 0 then
begin
s:=1/i;
i:=i+2;
end;
write(s:2:3);
readln
end.

dòng 1:

sai vì 100>1( đúng thì <gtd> bé hơn hoặc bằng <gtc>)

sửa lại: for i:=1 to 100 do writeln('A');

dòng 2:

sai vì <gtd> và <gtc> phải là những số nguyên (ở đây thì 1.5 và 10.5 là các số thập phân)

sửa lại:

for i:=1 to 10 do writeln('A');

program xmun;

uses crt;

var i,x,n,kq:longint;
Begin
clrscr;
writeln('Chuong trinh tinh X^n');
write('X=');readln(x);
write('n=');readln(n);
kq:=1;
for i:=1 to n do
kq:=kq*x;
writeln(x,'^',n,'=',kq);
readln;
end.

uses crt;

var n,x,i:integer;

lt:longint;

begin

clrscr;

write('n='); readln(n);

write('x='); readln(x);

lt:=1;

for i:=1 to x do

lt:=lt*n;

writeln(x,'^',n,'=',lt);

readln;

end.

uses crt;

var i,dv,ch,tr:integer;

begin

clrscr;

for i:=100 to 999 do

begin

dv:=i mod 10;

ch:=i div 10; ch:=ch mod 10;

tr:=i div 100; tr:=tr mod 10;

if (dv*ch*tr)=dv*dv*dv+ch*ch*ch+tr*tr*tr then write(i:6);

end;

readln;

end.

cần gấp ạ

a/ 7 vòng lặp

b/ biến bằng 1,2,3,4,5,6,7

program tinhtong;

uses crt;

var i: integer;

s: longint;

begin

s:= 0;

for i:= 1 to 200 do s:= s+i;

writeln('tong 200 so tu nhien dau tien la: ', s);

readln

end.

2.

uses crt;

var i, n :integer;

tich: longint;

a: array [1..100] of integer;

begin

write('nhap so n:'); readln(n);

for i:=1 to n do

begin

write('a[',i,']='); readln(a[i]);

end;

tich:=1;

for i:=1 to n do

tich:= tich* a[i];

writeln('tich cua day so la: ', tich);

readln

end.

1.

uses crt;

var i, n:integer;

s: longint;

a: array [1..100] of integer;

begin

write('nhap so n:'); readln(n);

for i:=1 to n do

begin

write('a[',i,']='); readln(a[i]);

end;

for i:=1 to n do

s:= s+ a[i];

writeln('tong cua day so la: ', s);

readln

end.

Câu 1 khỏi làm nha.....Help me câu 2 nhé các bn

1: Sai. for i:=1 to 10 do writeln('a');

program tong_so_tu_nhien;

uses crt;

var a,i,s: longint;

begin

clrscr;

s:= 0;

while s<=2000 do begin

writeln('nhap so n: '); readln(n);

s:= s+n;

writeln('tong la: ',s); end;

readln

end.

Mình chạy chương trình rồi! Làm đúng đó nên bạn tham khảo nhé! Chúc bạn học tốt!

giúp mình vs

cho đến khi được tổng đầu tiên lớn hơn 2000 thì ngừng đúng không?

program bt;

uses crt;

var n,i:longint;

R:real;

begin

clrscr;

write('nhap n:');readln(n);

R:=0;

for i:=1 to n do

R:=R+exp(n*ln(i));

write('R=',R:2:0);

readln;

end.

chúc bạn học tốt

const
fi='tinhr.inp';
fo='tinhr.out';
var
f:text;
n,i:longint;
r:real;
begin
assign(f,fi);
reset(F);
read(f,n);
close(F);
assign(f,fo);
rewrite(F);
r:=0;
for i:= 1 to n do
r:=r+exp(n*ln(i));
write(f,'r=',r:2:0);
close(F);
end.