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

s=1+2+3+.......+n

s=1+3+5+......+2n+1

s=1+1/2+1/3+.........+1/n

var i,n:integer;

tich:real;

begin

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

tich:=1;

for i:=1 to n do tich:=tich*(1+1/(i*i));

write('ket qua la:',tich);

readln

end.

s:=1; for i:= 1 to n do s:=s*(1+(1/sqr(n))); write(s);

tính 100? 100 số tự nhiên đầu hay gì? cho n làm gì?

Mình hơi noob vụ này tí, bạn thông cảm nha

Chúc bạn học tốt nha

var i,d:integer;

begin

d:=0;

for i:=1 to 100 do

d:=i*(i+1);

writeln('Ket qua ',d);

readln;

end.

var i:integer;

begin

for i:=1 to 100 do

if i mod 2=0 then write(' Cac so chan tu 1 den 100 la: ',i,' ');

readln;

end.

giup mk vs

var i:integer;

begin

for i:=1 to 100 do

if i mod 2=0 then write(i,' ');

readln;

end.

mik viết ct luôn nha bạn tự luận thuật toán vì bài này dễ

var d,i,n:integer;

begin

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

d:=0;

for i:=1 to n do d:=d+(i*i);

writeln('Tong la: ',d);

readln;

end.

var n,i:integer;

begin

repeat

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

until (n<10) and (n>0);

for i:=1 to n do

write(' Viet Nam ');

readln;

end.

1) tính tích j bạn ? mà dừng vòng lặp

2)

3)

đề t trả hiểu gì giải thích ra t lm cho

Program In_So_Le;

Uses crt;

var i,n: integer;

Begin

Clrscr;

Write('Nhap so n ='); readln(n);

For i:=1 to n do if i mod 2 =1 then Write(i:3,',');

readln

end.

ví dụ 321 in ra 3 ak

k ai biết =)

var

a,i:integer;

begin

for i:=1 to 4 do

begin

write('nhap vao ro thu ',i,':');

readln(a);

end;

readln

end.