Bài 10: Cấu trúc lặp

Program HOC24;

var x,a,b: integer;

y: longint;

begiin

write('Nhap a;x;b : '); readln(a,x,b);

y:=a*x+b;

if y mod 2=0 then write('y la so le ') else write('y la so chan');

readln

end.

For i=1 to n do S=S+i;

While i<=n do

begin

S=S+i;

end;

s:=0

for i:=m to n do

if i mod 1<>0 then

s:=s+i

uses crt;

var m,n,i,t:integer;

begin

clrscr;

write('m='); readln(m);

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

t:=0;

if m>n then

begin

for i:=m to n do

t:=t+i;

end;

writeln(t);

readln;

end.

Program i: integer;

s: longint;

Begin

s:=0;

for i:=1 to 99 do s:=s + i*(i+1);

write('S=',s);

readln

end.

uses crt;

var i,s:longint;

begin

clrscr;

s:=0;

for i:=1 to 99 do 

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

writeln('S=',s);

readln;

end.

Trả lời giúp với các bạn!!!

không vì for do có giới hạn

còn while do thì không

Không được , bạn nên viết đúng cấu trúc của từng câu lệnh chứ không được thay thế bởi vì máy tính đã được cài đặt sẵn như thế mà bạn

bt bạn

Rảnh quá ,không giống đâu

ngáo

ở mỗi nơi đề mỗi khác

nhập n và khai báo thì bạn có thể làm được mà phải không, mk chỉ gợi ý câu lệnh thoi nhé:

for i:=1 to n do write(i,';');

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

b) 

uses crt;

var i,y:integer;

begin

clrscr;

y:=0;

for i:=1 to 100 do 

  y:=y+i;

writeln('y=',y);

readln;

end.

c) 

uses crt;

var y,i:integer;

begin

clrscr;

y:=0;

i:=1;

while y<=3200 do 

  begin

y:=y+i;

inc(i);

end;

writeln('y=',y);

readln;

end.

uses crt;

var i,n,dem:integer;

begin

clrscr;

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

dem:=0;

for i:=1 to n do 

  if i mod 2=0 then 

begin

inc(dem);

write(i:4);

if dem=15 then writeln;

end;

readln;

end.