Составьте программу вычисления количества трехзначных чисел, у которых сумма цифр является чётным числом.
Answers & Comments
WhitePineapple
Program zadanie; var i,j,t, r:integer; begin writeln('Высчитываем числа.....'); for i:=1 to 9 do for j:=1 to 9 do for t:=1 to 9 do begin r:=i+j+t; if (r mod 2=0) then begin r:=i*100+j*10+t; writeln(r); end; end; end.
Если прога должна сама вывести все существующие числа, удовлетворяющие условию
Answers & Comments
var i,j,t, r:integer;
begin
writeln('Высчитываем числа.....');
for i:=1 to 9 do
for j:=1 to 9 do
for t:=1 to 9 do
begin
r:=i+j+t;
if (r mod 2=0) then
begin
r:=i*100+j*10+t;
writeln(r);
end;
end;
end.
Если прога должна сама вывести все существующие числа, удовлетворяющие условию