Question

*Bài tập lập trình pascal:

1. Cho số tự nhiên n

a) Cho biết trong số n² có bao nhiêu chữ số 3?

b) Hãy đổi chỗ chữ số đầu và chữ số cuối của n cho nhau rồi tính tổng số ban đầu và số mới.

2. Cho số tự nhiên m, tìm số nguyên k lớn nhất thỏa mãn 4^k<m.

Giúp mình với! Cảm ơn các bạn!

Answer 1

program bai1;

uses crt;

var n,tong,a,dem,i,t:longint;

j:integer;

s,s1:string;

function demcs(n:longint):longint;

begin

dem:=0;

while n <>0 do

begin

dem:=dem+1;

n:=n div 10;

end;

demcs:=dem;

end;

begin

clrscr;

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

a:=sqr(n);

dem:=0;

while a<>0 do

begin

if a mod 10 =3 then dem:=dem+1;

a:=a div 10;

end;

if dem=0 then writeln('trong so ',sqr(n),' khong co chu so 3 nao')

else

writeln('trong so ', sqr(n),' co ',dem,' chu so 3');

if demcs(n)<>1 then

begin

str(n,s);

s1:=s[length(s)];

for i:=2 to length(s)-1 do s1:=s1+s[i];

s1:=s1+s[1];

val(s1,a,j);

end

else a:=n;

tong:=n+a;

write('tong cua so ban dau va so moi la:',tong);

readln;

end.

*đây là bài 1, còn bài 2 để mai mk giải cho, khuya r

Answer 2

uses crt;

var m,i,j,tich:longint;

k:extended;

begin

clrscr;

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

k:=m;

while exp(k*ln(4))>=m do k:=k-1;

write(round(k));

readln;

end.

*muốn chạy bài này bạn phải vào optipns-->compiler-->đánh dấu 8087/80287