a) Sai vì giá trị đầu lớn hơn giá trị cuối

b) Sai vì giá trị đầu lớn hơn giá trị cuối

b) Sai vì sau câu lệnh i:=1+1 thiếu dấu chấm phẩy

var tam,a,b,i:integer;

begin

write('a = ');readln(a);

write('b = ');readln(b);

if a < b then

begin

tam:=a;

a:=b;

b:=tam;

end;

for i:=a to b do

if sqrt(i) = trunc(sqrt(i)) then write(i:10);

readln;

End.

program TongSoChanTrongDay;

var

      n, i, tong: integer;

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

begin

      tong := 0;

      write('Nhap so phan tu cua day: ');

      readln(n);

      for i := 1 to n do

      begin

            write('Nhap phan tu thu ', i, ': ');

            readln(a[i]);

            if a[i] mod 2 = 0 then

                  tong := tong + a[i];

      end;

      writeln('Tong cac phan tu chan trong day la: ', tong);

      readln;

end.

fgfgfgfgfgfggfgfgfggggfgf

Câu 1: 

1:A

2:C

Câu 1:

3:D

4:C

Lời giải:

Câu 2 :

program hotrotinhoc ;

var i : integer ;

kt: boolean ;

begin

for i:= 2 to trunc(sqrt(100)) do

if 100 mod i = 0 then kt:= false ;

if kt=true then write(i);

readln

end.

Bạn viết rõ lại đề bài là của một lượng số bao nhiêu hay là số lượng số được nhập từ máy tính

uses crt;

var n,i,t1,t2,t3:integer;

begin

clrscr;

repeat

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

until n>0;

t1:=0;

t2:=0;

t3:=0;

for i:=1 to n do

begin

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

if i mod 2=1 then t2:=t2+i;

if i mod 3=0 then t3:=t3+i;

end;

writeln('Tong cac so chan la: ',t1);

writeln('Tong cac so le la: ',t2);

writeln('Tong cac so chia het cho 3 la: ',t3);

readln;

end.