Viết chương trình in ra màn hình các chữ số có 3 chữ số mà tổng các chữ số là số chẵn. Code pascal
2 câu trả lời
Var i,d1:Longint;
Begin
For i:=100 to 999 do
Begin
d1:=(i mod 10)+((i div 10) mod 10)+(i div 100);
If d1 mod 2 =0 then Writeln(i);
End;
Readln;
End.
Nếu có sai thì bạn nói mình nhé.
========================
program Hello;
uses crt;
var i,s:longint;
begin
clrscr;
i:= 100;
while i < 1000 do
begin
s:=i div 100+i div 10 mod 10+i mod 100 mod 10;
if s mod 2 = 0 then
write(i,' ');
inc(i);
end;
readln;
end.
