cấp trường 1

Đề ôn tập
Bài 1 : Nhập vào 1 số nguyên dương ( kiểm tra điều kiện ). Cho biết số đó có bao nhiêu chữ số và tính tổng các chữ số đó.
Bài 2 : Nhập vào một chuỗi gồm chữ và số . Hãy xóa các khoảng trắng không cần thiết. Cho biết trong chuỗi đó có bao nhiêu chữ số, xuất các chữ số đó.
Bài 3 : Nhập vào 2 số nguyên dương. Hãy tìm UCLN và BCNN của hai số đó.
Bài 4 : Cho dãy số : 1;-4;9;-16;25…..; n2. Hãy nhập vào số nguyên dương n. Tính Tổng các số của dãy.
Bài 5 : Nhập vào ma trận vuông cấp 4. Xuất ma trận. Sắp xếp ma trận tăng dần theo hàng ngang.

Bài 2:

Code:

uses crt;
var so:string;
    i,tong:integer;
begin
clrscr;
write('nhap so:');readln(so);
for i:=1 to length(so) do
begin
write(ord(so[i])-48:3);
tong:=tong+(ord(so[i])-48);
end;
writeln;
write('tong la:',tong);
readln;
end.

tác giả có giải hem

thuynganhb đã viết:

tác giả có giải hem

Bài 1:

Code:

uses crt;
var st:string;
    so,tong,i:integer;
begin
clrscr;
write('nhap so:');readln(so);
str(so,st);
writeln('so chu so:',length(st));
for i:=1 to length(st) do tong:=tong+ord(st[i])-48;
writeln('tong la:',tong);
readln;
end.

Bài 2:

Code:

uses crt;
const tt=['0'..'9'];
var st:string;
    i,j,k,n:integer;
begin
clrscr;
write('nhap chuoi:');readln(st);
while pos(#32,st)<>0 do delete(st,pos(#32,st),1);
writeln(st);
for i:=1 to length(st) do if st[i] in tt then
    begin
        k:=k+1;
        write(ord(st[i])-48);
    end;
writeln('co ',k,' chu so');
readln;
end.

Bài 3:

Code:

uses crt;
var a,b:integer;
function ucln(a,b:integer):integer;
begin
    while a<>b do
          begin
                if a>b then a:=a-b;
                if b>a then b:=b-a;
          end;
ucln:=a;
end;
{-}
function bcnn(a,b:integer):integer;
begin
bcnn:=a*b div ucln(a,b);
end;
{-}
begin
clrscr;
write('nhap hai so:');readln(a,b);
writeln(ucln(a,b));
writeln(bcnn(a,b));
readln;
end.

Bài 4: N2 là n^2 nhé bạn

Code:

uses crt;
var tong,i,j,n:integer;
begin
clrscr;
write('nhap so do:');readln(n);
for i:=0 to n do if i*i mod 2=0 then tong:=tong +i*i*(-1) else tong:=tong+i*i;
write('tong la:',tong);
readln;
end.

Bài 5:

Code:

uses crt;
var a:array[1..100,1..100] of integer;
    i,j,n,k:integer;
procedure dc(var a,b:integer);
var t:integer;
begin
t:=a;a:=b;b:=t;
end;
{-}
begin
clrscr;
for i:=1 to 4 do
for j:=1 to 4 do
    begin
        write('a[',i,',',j,']:');readln(a[i,j]);
    end;
for i:=1 to 4 do
    begin
        for j:=1 to 4 do write(a[i,j]:4);
        writeln;
    end;
writeln;
for i:=1 to 4 do
for j:=1 to 4 do
for k:=1 to 4 do
if a[i,j]<a[i,k] then dc(a[i,j],a[i,k]);
for i:=1 to 4 do
    begin
        for j:=1 to 4 do write(a[i,j]:4);
        writeln;
    end;
readln;
end.