Question

Bài 1: Nhập vào số tự nhiên n và biểu diện số đó dưới dạng tích các thừa số nguyên tố

Bài 2: Viết chương trình nhập vào số nguyên dương N. In ra màn hình tổng các chữ số của số N, đếm xem số N có bao nhiêu chữ số. In ra chữ số lớn nhất của N

VD: N=123 => tổng các chữ số là 6 rồi số N có 3 chữ số, số lớn nhất là số 3

Bài 3: Nhập 1 số nguyên N, in ra ước số lẽ lớn nhất cảu nó. Sử dụng for...down to ( n div 2 ->1)

Nếu n chia hết cho i và odd(i) thì in ước số lẽ lớn nhất là i

Bài 4: Nhập 1 số nguyên N, in ra số chẵn bé nhất cảu nó

Bài 5: Nhập 1 số nguyên N, in ra số đảo ngược của số đó

Bài 6: Nhập 1 số nguyên N, thông báo chữ số đầu tiên tính từ trái qua

Ai giúp đc mình thì cho mình cám ơn, mình học nâng cao nhưng nghỉ luôn phần này nên ko biết phải làm như thế nào

Answer 1

Bài 1:

uses crt;
var n,kt,i,n1,i1:integer;
begin
clrscr;
write('nhap n='); readln(n);
if n>=0 then
begin
write(n,'=');
n1:=n;
i1:=2;
repeat
while n1 mod i1<>0 do
i1:=i1+1;
write(i1);
n1:=n1 div i1;
if n1>1 then write('*');
until n1=1;
end
else writeln('vui long nhap so tu nhien');
readln;
end.

Bài 2:

uses crt;
var n,d,i,x,t,ln:integer;
st:string;
a:array[1..100]of integer;
begin
clrscr;
write('nhap n='); readln(n);
if n>0 then
begin
str(n,st);
d:=length(st);
for i:=1 to d do
val(st[i],a[i],x);
t:=0;
for i:=1 to d do
t:=t+a[i];
writeln('tong cac chu so cua so ',n,' la: ',t);
writeln('so ',n,' co ',d,' chu so');
ln:=0;
for i:=1 to d do
if ln<a[i] then ln:=a[i];
writeln('chu so lon nhat cua so ',n,' la: ',ln);
end
else writeln('vui long nhap lai');
readln;
end.

Bài 3:

uses crt;
var n,i,dem,ln:integer;
a:array[1..100]of integer;
begin
clrscr;
write('nhap n='); readln(n);
ln:=0;
for i:=n div 2 downto 1 do
if n mod i=0 then if (i mod 2=1) and (ln<i) then ln:=i;
writeln(ln);
readln;
end.

Bài 4:

uses crt;
var n,i,d,x,nn,dem:integer;
st:string;
a,b:array[1..100]of integer;
begin
clrscr;
write('nhap n='); readln(n);
str(n,st);
d:=length(st);
for i:=1 to d do
val(st[i],a[i],x);
for i:=1 to d do
if a[i] mod 2=0 then
begin
dem:=dem+1;
b[dem]:=a[i];
end;
nn:=b[1];
for i:=1 to dem do
if nn>b[i] then nn:=b[i];
writeln('so chan be nhat trong so ',n,' la: ',nn);
readln;
end.

Bài 5:

uses crt;
var n,d,i:integer;
st:string;
begin
clrscr;
write('nhap n='); readln(n);
str(n,st);
d:=length(st);
for i:=d downto 1 do
write(st[i]);
readln;
end.

Bài 6:

uses crt;
var n:integer;
st:string;
begin
clrscr;
write('nhap n='); readln(n);
str(n,st);
writeln('so dau tien tinh tu trai qua phai cua so ',n,' la: ',st[1]);
readln;
end.