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 các chữ số chẵn 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=0 then S:=S+k*k;
End;
writeln(S);
Readln;
end.
Nếu có gì ko hiểu thì hỏi nha!!!
program tinhtongcs;
uses crt;
var n,m:word;
t:byte;
begin
clrscr;
write('Nhap so can tinh: ');
readln(n);
t:=0; m:=n;
while m>0 do
begin
if m mod 2=0 then t:=t+m mod 10;
m:=m div 10;
end;
write('Tong cac chu so chan cua ',n,' la: ',t);
readln
end.
