Question

Câu 1:tỉnh tổng các số chẵn từ 1->100
Câu 2:Viết chương trình in ra màn hình các số chính phương <1000
Help me!!

Answer 1

Câu 1:

Program tongchan;
Var i,s:integer;
Begin
i:=2;
While (i>1) and (i<=100) do
Begin
s:=s+i;
i:=i+2;
End;
Writeln(S);
Readln;
End.

Answer 2

Câu 2:

Program scp;

Var i:longword;

Begin

For i:=1 to n do

If trunc(sqrt(i))=sqrt(i) then write(i:3);

Readln;

End.

Answer 3

Câu 2 mk viết nhầm 1000 thành n, mk sửa lại

Program scp;

Var i:longword;

For i:=1 to 1000 do

If trunc(sqrt(i))=sqrt(i) then write(i:5);

Readln;

End.

Answer 4

Lời giải :

Câu 1 :

program hotrotinhoc ;

var i,tong : integer ;

begin

tong:=0;

for i:= 1 to 100 do

if i mod 2=0 then tong:=tong+i;

write('Tong la:',tong);

end.

Câu 2 :

program hotrotinhoc ;

var i : longint ;

begin

i:=0;

while i<1000 do i:=i+1;

if sqrt(sqr(i)) = i then write(i,' ');

readln

end.