cấp trường 9

Bài 1: Viết chương trình nhập vào số nguyên dương n, kiểm tra số n có dạng 3k+5 hay không (k là số nguyên dương)? Nếu có xuất ra màn hình giá trị của k, nếu không hiện ra màn hình chữ “khong”.
Bài 2:
Một số nguyên dương n được gọi là MAY MẮN khi số n có dạng 7h+5 (với h là số nguyên dương)
Ví dụ: 12 là MAY MẮN vì 12=7.h+5 (với h=1)
Yêu cầu: Viết chương trình nhập vào từ bàn phím một chuỗi s gồm: chữ cái, chữ số và khoảng trắng. Các chữ số liền nhau tạo thành con số.
• Đếm và xuất ra màn hình số lượng chữ số trong chuỗi s
• Tính và xuất ra màn hình các con số MAY MẮN trong chuỗi s và tổng của chúng.
Ví dụ: chuỗi s 'a5 aaa12bb40 ccc96' có 7 chữ số và tổng các con số MAY MẮN là 148
Bài 3: Con số nguyên dương n gọi là con số song trùng m với m là số nguyên dương khi n chia hết cho m và tổng chữ số của n cũng chia hết cho m. Viết chương trình:
a) Nhập n, m. Hãy cho biết n có là con số song trùng m hay không?
b) Nhập vào hai số nguyên dương k, h, tìm tất cả số song trùng m từ k đến h?
Bài 4: CHUỖI KÝ TỰ
Cho một chuỗi ký tự S có độ dài không quá 250 ký tự. Hãy tính tổng các ký tự là chữ số trong chuỗi này.
Input
Gồm một dòng chứa chuỗi ký tự S.
Output
Gồm một dòng chứa số nguyên là tổng các ký tự trong chuỗi S.

STR.INP STR.OUT
Dsajfkj847719-8jjfuioqu21i0io 47

Bài 5: Cho dãy số nguyên A gồm n phần tử a1,a2, .., an, tìm bộ ba chỉ số i, j,k thỏa mãn:
S= ai-2aj+3ak đạt giá trị lớn nhất (với 1 ≤ i < j < k ≤ n).

Bài 1:
uses crt;
var k,m,x,tich,i:integer;
begin
clrscr;
write('Nhap so:');readln(m);
x:=1;k:=0;
repeat
k:=k+1;
for i:=1 to k do x:=x*3;
tich:=x+5;
if tich<m then
begin
tich:=tich-5;x:=1;
end;
until tich>=m;
if tich=m then
begin
writeln('Co');write('k la:',k);
end
else write('Ko');
readln;
end.

Bài 2:
uses crt;
const so=['0'..'9'];
var a,b:string;
i,x,code,tong,h:integer;
begin
clrscr;
write('Nhap chuoi:');readln(a);
x:=0;
for i:=1 to length(a) do if a[i] in so then x:=x+1;
writeln('Cac chu so trong chuoi la:',x);
i:=0;tong:=0;
while i<length(a) do
begin
i:=i+1;
if a[i] in so then
begin
b:='';
insert(a[i],b,length(b)+1);
while a[i+1] in so do
begin
i:=i+1;
insert(a[i],b,length(b)+1);
end;
val(b,x,code);
for h:=1 to x do if x=7*h+5 then tong:=tong+x;
end;
end;
writeln('Tong cac so may man la:',tong);
readln;
end.

Bài 3:
uses crt;
var n,m,k,h:integer;
{-}
function w(n,m:integer):boolean;
var i,dem,tong:integer;
begin
    dem:=0;tong:=0;
    if n mod m=0 then dem:=dem+1;
    repeat
    tong:=tong+(n mod 10);
    n:=n div 10;
    until n=0;
    if tong mod m=0 then dem:=dem+1;
    if dem=2 then w:=true else w:=false;
end;
{-}
procedure x(var a,b,m:integer);
var i,j:integer;
begin
j:=0;
for i:=a to b do if w(i,m)=true then
begin
    j:=j+1;
    write(i:3);
end;
if j=0 then writeln('Ko co');
end;
{-}
begin
clrscr;
write('Nhap n:');readln(n);
write('Nhap m:');readln(m);
if w(n,m)=true then writeln(n,' song trung voi ',m,'')
              else writeln(n,' ko song trung voi ',m,'');
write('Nhap k:');readln(k);
write('Nhap h:');readln(h);
writeln('Cac so song trung voi ',m,' tu ',k,' den ',h,' la:');
if k<h then x(k,h,m) else x(h,k,m);
readln;
end.

Bài 4:
uses crt;
const so=['1'..'9'];
var s:string;
i,tong,code:integer;
begin
clrscr;
write('Nhap chuoi:');readln(s);
tong:=0;
for i:=1 to length(s) do if s[i] in so then
begin
val(s[i],i,code);tong:=tong+i;
end;
writeln('Tong la:',tong);
readln;
end.