Составьте программу вычисления кол-ва трехзначных чисел, у которых сумма цифр является четным числом. Помогите пожалуйста, а то Паскаль не понимаю, особенно такие задачи... :с
Составьте программу вычисления кол-ва трехзначных чисел, у которых сумма цифр является четным числом.
Помогите пожалуйста, а то Паскаль не понимаю, особенно такие задачи... :с
Гость
Ответ(ы) на вопрос:
Гостьvar a,b,c,e:integer;
begin
e:=0;
for a:=100 to 999 do begin
c:=a;
while (c<>0) do begin
b:=c mod 10;
e:=b+e;
c:=c div 10;
end;
if (e mod 2 = 0) then writeln(a);
e:=0;
end;
end.
Не нашли ответ?
Похожие вопросы