Program HOC24;

var b: integer;

c: longint;

begin

write('Nhap B: '); realdn(b);

C:=5*B;

write('C = ',c);

readln

end.

var b:real;

c:real;

begin

write('Nhap B: '); readln(b);

c:=5*B;

write('C = ',c:10:2);

readln

end.

Program HOC24;

var i,n: integer;

t: longint;

begin

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

t:=1;

for i:=1 to n do t:=t*2;

write('2^,n,' = ',t);

readln

end.

program Tinh_2_mu_n;
var
n, i: integer;
ket_qua: longint;
begin
write('Nhap vao so nguyen n: '); readln(n);
ket_qua := 1;
for i := 1 to n do
ket_qua := ket_qua * 2;writeln('2^', n, '=',ket_qua); readin;
end.  

Câu 1:

var i,n:integer;

s:longint;

begin

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

for i:=1 to n do

s:=s+2*i+1;

write('tong la: ',s);

readln

end.

Câu 2

Bài 5:

Var b:array:[1..1000] of integer;

i,n,max:integer;

Begin

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

For i:=1 to n do

Begin

Write('Nhap so thu ',i,' = ');readln(b[i]);

End;

Write('Cac phan tu am la: ');

For i:=1 to n dko

if b[i]<0 then write(b[i]:8);

writeln;

max:=b[1];

For i:=2 to n do

If b[i] > max then max:=b[i];

write('So lon nhat la ',max);

Readln

End.

Câu 1: B

Câu 2: C

Câu 3: B

Program HOC24;

var i: byte;

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

begin

for i:=1 to 10 do

begin

write('Nhap so thu ',i,': '); readln(a[i]);

end;

write('Cac so da nhap: ');

for i:=1 to 10 do write(a[i],' ');

readln

end.

Program HOC24; 

var i,n: integer;

s: real;

begin

s:=0; n:=2;

while s<=0,785 do

begin

s:=s+1/n;

n:=n+2;

end;

write('S = ',s);

readln

end.

Program HOC24;

var i,n: integer;

s: longint;

begin

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

s:=0;

for i:=1 to n do s:=s+i;

write('S = ',s);

readln

end.

Phần tử trong mảng nha mn ghi nhầm

Program HOC24;

var i,n,d: integer;

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

begin

write('Nhap N: '); readln(n);

for i:=1 to n do

begin

write('Nhap so thu ',i,': '); readln(a[i]);

end;

d:=0;

for i:=1 to n do if a[i] mod 5<>0 then d:=d+1;

write('Co ',d,' so khong chia het cho 5');

readln

end.

For i:=1 to 10 do; writeln ('A');

-> thừa dấu ; ở sau do

-> sửa: For i:=1 to 10 do writeln ('A');