dữ liệu số rồi sao còn kí tự nữa

đặc trưng về cái gì vậy bn

Bài 1:

uses crt;
var n,d,t,x,y,j,kt,i,t1,dem:integer;
st:string;
a:array[1..255]of integer;
begin
clrscr;
write('n='); readln(n);
if (0<n) and (n<1000) then
begin
{------------------------dong-1---------------------------}
str(n,st);
d:=length(st);
t:=0;
for i:=1 to d do
begin
val(st[i],x,y);
t:=t+x;
end;
writeln('tong cac chu so cua ',n,' la: ',t);
{----------------------dong-2----------------------------}
writeln('cac so nguyen to nho hon tong cac chu so cua ',n,' la: ');
dem:=0;
for i:=2 to t-1 do
begin
kt:=0;
for j:=2 to i-1 do
if i mod j=0 then kt:=1;
if kt=0 then
begin
write(i:4);
dem:=dem+1;
a[dem]:=i;
end;
end;
{----------------dong-3---------------------------}
writeln;
t1:=0;
for i:=1 to dem do
t1:=t1+a[i];
writeln('tong cac so nguyen to trong dong 2 la: ',t1);
end
else writeln('vui long nhap lai');
readln;
end.

Bài 2:

uses crt;
var a,b,i,dem,j,kt:integer;
c:array[1..100]of integer;
begin
clrscr;
write('a='); readln(a);
write('b='); readln(b);
if (20<=a) and (a<=50) and (30<=b) and (b<=75) then
begin
{------------------------dong-1--------------------------}
writeln('cac so co 2 chu so chia het cho 9 la:');
for i:=10 to 99 do
if i mod 9=0 then write(i:4);
{-----------------------dong-2--------------------------}
writeln;
writeln('cac so chinh phuong lon hon ',a,' va nho hon ',b,' la: ');
for i:=a+1 to b-1 do
if trunc(sqrt(i))=sqrt(i) then write(i:4);
{-----------------------dong-3---------------------------}
writeln;
dem:=0;
for i:=2 to b do
begin
kt:=0;
for j:=2 to i-1 do
if i mod j=0 then kt:=1;
if kt=0 then
begin
inc(dem);
c[dem]:=i;
end;
end;
writeln('so nguyen to lon nhat nho hon ',b,' la: ',c[dem]);
end
else writeln('vui long nhap lai');
readln;
end.

Bài 3:

uses crt;
var n,d,t,i,x,y:integer;
st:string;
begin
clrscr;
write('n='); readln(n);
if (0<n) and (n<105) then
begin
{---------------------------dong-1---------------------------}
str(n,st);
d:=length(st);
writeln('so luong cac chu so cua ',n,' la: ',d);
{---------------------------dong-2--------------------------}
t:=0;
for i:=1 to d do
begin
val(st[i],x,y);
t:=t+x;
end;
writeln('tong cac chu so cua ',n,' la: ',t);
{---------------------------dong-3------------------------}
writeln('phan so toi gian cua ',n,' la: 1/',n);
write('so dao nguoc cua ',n,' la: ');
for i:=d downto 1 do
write(st[i]);
end
else writeln('vui long nhap lai');
readln;
end.

Câu 1:

Program hotrotinhoc;

var i,tog,n: integer;

function tong(x: integer): integer;

var k,t: longint;

begin

t:=0;

while x<>0 do

begin

k:=x mod 10;

t:=t+k;

x:=x div 10;

end;

tong:=t;

end;

function nt(a: integer): boolean;

var j: integer;

begin

nt:=true;

if (a=2) or (a=3) then exit;

nt:=false;

if (a=1) or (a mod 2=0) or (a mod 3=0) then exit;

j:=5;

while (j<=trunc(sqrt(a))) do

begin

if (a mod j=0) or (a mod (j+2)=0) then exit;

j:=j+6;

end;

nt:=true;

end;

begin

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

writeln('Tong cac chu so cua N la :',tong(n));

write('Cac so nguyen to nho hon tong cac chu so cua N la :');

for i:=1 to tong(n) do if nt(i) then

begin

write(i,' ');

tog:=tog+i;

end;

writeln;

write('Tong cac so nguyen to trong dong 2 la :',tog);

readln

end.

help

Câu 46: A

Câu 47: B

Câu 51: B

Câu 52: A

Câu 53: D

Câu 54: C

Câu 55: A

B1: Bôi đen đối tượng

B2: Bấm copy/cut

B3: Paste vào vùng muốn sao chép hoặc di chuyển

bạn cho mik hỏi rk chỉ cần 3 bước này thui hả? cảm ơn bạn hư

=IF(ĐTB>=8;"Đậu";IF(ĐTB<5;"Thi lại";"Rớt"))

Như vậy mới được tại vì bạn không ghi dấu ngoặc kép thôi. Chữ mà phải có dấu ngoặc kép chứ.

- Các bạn Nguyễn Thịnh, @Chihaya trả lời đúng rồi. Bạn thiếu chữ dấu ngoặc kép "" khi dữ liệu là dạng string. Nhưng mình còn thấy trong điều kiện của bạn có chút vấn đề về logic:

Theo mình thì Trong lệnh if lồng bên trong thì điều kiện sau IF phải là ĐTB>=5 chứ nhỉ hoặc giữ nguyên ĐK là ĐTB < 5 nhưng phải đổi lại vị trí của "Rớt" và "Thi lại" thì hợp lý hơn. Vì nếu bạn để điều kiện như thế kia thì dữ liệu ra sẽ là:

+ ĐTB>= 8: Thi đậu

+ 5<=ĐTB<8: Rớt

+ ĐTB <5: Thi lại.

Đây là ý kiến của mình thôi nhé. Chúc bạn học tốt.

bước 1: nháy chuột trên biểu đồ

bước 2: chọn và kéo thả đến vị trí mới