Viết Chương trình hộ mik mấy câu này với ( Cần nhứt câu 3 ạ)! Hứa sẽ vote 5s cho câu trả lời đúng nhứt!!
-Câu 1: Viết CT nhập vào số có 3 chữ số. In ra màn hình tích các chữ số khác 0
– Câu 2: Viết CT nhập vào số có 4 chữ số. In ra màn hình trung bình cộng các chữ số chẵn
– Câu 3: Viết CT nhập vào số n và kiểm tra xem n có phải là số chính phương hay không? (số chính phương là số lớn hơn 1 và là bình phương của một số nguyên dương khác)
c1 var n,m,t:integer;
begin
write(‘nhap n’);readln(n);
t:=1;
while n<>0 do
begin
m:=n mod 10;
n:=n div 10;
if m<>0 then t:=t*m
write(m,’ ‘);
end;
readln;
end;
c2
var n,m,t,d:integer;
begin
d:=0;t:=0;
write(‘nhap n’);readln(n);
while n<>0 do
begin
m:=n mod 10;
n:=n div 10;
if m mod 2 =0 then
begin
d:=d+1;
t:=t+m;;
end;
end;
write(t/d);
readln;
end;
c3
var n:integer;
begin
write(‘nhap n’);readln(n);
if spr(trunc(sqrt(n))) =n then write(n,’ là so chinh phuong’)
else write(n,’ ko phai la so chinh phuong’);
readln;
end;
Câu 1:
uses crt;
var n,i,p:longint; s:string;
begin
clrscr;
repeat
write(‘Nhap so: ‘); readln(s);
until length(s)=3;
for i:=1 to length(s) do
if s[i]=’0′ then delete(s,i,1);
val(s,n);
p:=1;
while n<>0 do
begin
p:=p*(n mod 10);
n:=n div 10;
end;
writeln(p);
readln
end.
Câu 2:
uses crt;
var n,i,t,d:longint; s:string;
begin
clrscr;
repeat
write(‘Nhap so: ‘); readln(s);
until length(s)=4;
for i:=1 to length(s) do
if s[i] in [‘0′,’2′,’4′,’6′,’8’] then inc(d)
else delete(s,i,1);
val(s,n);
while n<>0 do
begin
inc(t,n mod 10);
n:=n div 10;
end;
writeln(‘TBC: ‘,t/d:0:2);
readln
end.
Câu 3:
uses crt;
var n:longint;
begin
clrscr;
write(‘Nhap n: ‘); readln(n);
if n=sqr(trunc(sqrt(n))) then writeln(n,’ la so chinh phuong’)
else writeln(n,’ khong phai so chinh phuong’);
readln
end.