Nhập số tự nhiên bất kỳ có 3 chữ số từ bàn phím tính và đưa ra màn hình tổng bình phương các chữ số lẻ của số đó
2 câu trả lời
PrograM TINH;
use crts;
Var n,S,k:integer;
Begin
clrscr;
Writeln('nhap n'); readln(n);
While n<>0 do
begin
k:=n mod 10;
n:=n div 10;
if k mod 2=1 then S:=S+k*k;
End;
writeln(S);
Readln;
end.
Nếu có gì ko hiểu thì hỏi nha!!!
program bpsl;
uses crt;
var n,t,m:integer;
begin
clrscr;
write('Nhap so can tinh: '); readln(n);
t:=0;
m:=n;
while m>0 do
begin
if m mod 2=1 then t:=t+(m mod 10)*(m mod 10);
m:=m div 10;
end;
write('Tong binh phuong cac so le cua ',n,' la: 't);
readln
end.
