Составьте программу вычисления кол-ва трехзначных чисел, у которых сумма цифр является четным числом. Помогите пожалуйста, а то Паскаль не понимаю, особенно такие задачи... :с
Ответы:
23-01-2014 05:49
var a,b,c,e:integer;begine:=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.
⭐⭐⭐⭐⭐ Лучший ответ на вопрос «Составьте программу вычисления кол-ва трехзначных чисел, у которых сумма цифр является четным числом. Помогите пожалуйста, а то Паскаль не понимаю, особенно такие задачи... :с» от пользователя ЗЛАТА КИСЛЕНКОВА в разделе Экономика. Задавайте вопросы и делитесь своими знаниями.
Открой этот вопрос на телефоне - включи камеру и наведи на QR-код!