Cấu trúc rẽ nhánh và lặp

uses crt;

var a,i:integer;

s:real;

begin

clrscr;

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

s:=0;

for i:=1 to 50 do 

  s:=s+i/(a+i);

writeln(s:4:2);

readln;

end.

Program HOC24;

var s: real;

i,a: integer;

begin

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

s:=0;

if a>2 then

for i:=1 to 50 do s:=s+i/(a+i) else write(a,' chua thoa man dieu kien >2');

write('S = ',S:1:2);

readln

end.

uses crt;

var n,i:integer;

begin

clrscr;

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

if n mod 2<>0 then 

begin

for i:=1 to n do 

  if i mod 2=1 then write(i:4);

end

else begin

for i:=1 to n do

  if i mod 2=0 then write(i:4);

end;

readln;

end.

Đầu tiên n=1

Cứ tăng i lên 1 đơn vị thì n lúc sau bằng n ban đầu +1

Lần thứ nhất n=1+1=2

Lần thứ 2: n=2+1=3

Lt3: n=3+1=4

Lt4: n=4+1=5

Lt5: n=5+1=6

===> C.6

Biết ngay đề bài có vấn đề mà, cách tốt nhất để xem nó in ra màn hình cái gì là đánh vô Free Pascal

Đó, xem lại đề bài đi bạn :v

Chọn C nhé bạn

uses crt;

var x,y:integer;

begin

clrscr;

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

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

if x>y then writeln(x-y)

else writeln(x+y);

readln;

end.

Câu 1: B

Câu 2: B

Câu 3: C

Câu 4: C

Program bai1;

uses crt;

var a,b,c: integer;

s: longint;

begin

clrscr;

write('nhap so nguyen 1 = '); readln(a);

write('nhap so nguyen 2 = '); readln(b);

write('nhap so nguyen 3 = '); readln(c);

s:=a+b+c;

if (s mod 3 = 0 ) and (s mod 5 = 0 ) then

writeln('tong 3 chu so a b c chia het cho 3 va 5') else

writeln('tong 3 chu so a b c khong chia het cho 3 va 5');

readln;

end.

program baitap;

uses crt;

var a,c,b,s:integer;

begin

clrscr;

write('nhap so thu nhat: ');

readln(a);

write('nhap so thu hai: ');

readln(b);

write('nhap so thu ba: ');

readln(c);

write(a:4,b:4,c:4);{xuat ra 3 so vua nhap}

writeln;

S:= a+b+c;

if S mod 5=0 then

writeln('tong ba so chia het cho 5')

else if S mod 3 = 0 then

writeln('tong ba so chia het cho 3');

readln;

end.