program song_to;

uses crt;

var x,i,dem,tcs,t:longint;

function tongchuso(x:longint):longint;

begin

tcs:=0;

while x<>0 do

begin

tcs:=tcs+x mod 10;

x:=x div 10;

end;

tongchuso:=tcs;

end;

begin

clrscr;

write('nhap vao mot so:');readln(x);

dem:=0;

for i:=1 to x do

if x mod i=0 then dem:=dem+1;

if dem=2 then

begin

t:=0;

for i:=1 to tongchuso(x) do

if tongchuso(x) mod i =0 then t:=t+1;

if t=2 then write(x,' la so song to');

end

else write(x,' k la so song to');

readln;

end.

uses crt;

var n,i,dem:longint;

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

x:real;

begin

clrscr;

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

writeln('nhap day so thuc:');

for i:=1 to n do

begin

write('a[',i,']=');readln(a[i]);

end;

write('nhap x:');readln(x);

dem:=0;

for i:=1 to n do

if a[i]<=x then dem:=dem+1;

if dem=0 then write('trong day khong co so khong lon hon ',x:2:2)

else write('co ',dem,' so trong day khong lon hon ',x:2:2);

readln;

end.

program hinh_vuong;

uses crt;

var a,chuvi,dt:word;

begin

clrscr;

write('nhap do dai canh cua hinh vuong:');

readln(a);

chuvi:=a*4;

dt:=a*a;

writeln('chu vi hinh vuong la:',chuvi);

write('dien tich hinh vuong la:',dt);

readln;

end.

1/

program uoc;

uses crt;

var n,i,dem,x:word;

a:array[1..20] of longint;

begin

clrscr;

write('nhap so phan tu cua day:') ;readln(n);

while n>20 do

begin

write('nhap lai so phan tu thoa man toi da la 20 phan tu:');

readln(n);

end;

writeln('nhap cac phan tu cua mang:');

for i:=1 to n do

begin

write('a[',i,']='); readln(a[i]);

end;

write('nhap so nguyen x:'); readln(x);

dem:=0;

for i:=1 to n do

if x mod a[i] =0 then

begin

dem:=dem+1;

writeln(a[i],' la uoc cua ',x);

end;

if dem=0 then writeln('khong co phan tu la uoc cua ',x)

else write('co ',dem,' phan tu la uoc cua ',x);

readln;

end.

program nhap;

uses crt;

var n,i:integer;

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

begin

clrscr;

write('nhap do dai cua day so:');readln(n);

for i:=1 to n do

begin

write('a[',i,']=');readln(a[i]);

end;

readln;

end.

bài này mới đúng nè bạn:

uses crt;

var X:string;

demtu,demdc,i:word;

begin

clrscr;

write('nhap cau van X:');readln(X);

writeln('so ki tu la:',length(X));

X:=X+' ';

demtu:=0;

for i:=1 to length(X)-1 do

if (X[i]<>' ') and (X[i+1]=' ') then demtu:=demtu+1;

writeln('so tu la:',demtu);

delete(X,length(X),1);

demdc:=0;

for i:=1 to length(X) do

if X[i]=' ' then demdc:=demdc+1;

writeln('so dau cach la:',demdc);

readln;

end.

program trung_binh;

uses crt;

var n,i:integer;

tb:real;

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

begin

clrscr;

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

writeln('nhap day so:');

for i:=1 to n do

begin

write('a[',i,']=');readln(a[i]);

end;

tb:=0;

for i:=1 to n do tb:=tb+a[i];

tb:=tb/n;

write('trung binh cong cua day so vua nhap la:',tb:2:2);

readln;

end.

*chỗ tb mình lấy 2 số lẻ thập phân nha

câu 2 của bạn để là sắp xếp là sắp xếp tăng dần hay giảm dần z?