Задание:
Найти кол-во 3 х-значных чисел у которых сумма цифр является четным числом? pascal
Решение:
vari, a, b,c, s: integer; begins: =0; for i: =100 to 999 dobegina: =i div 100; b: =(i — a*100) div 10; c: =i mod 10; if (a+b+c) div 2=0) thens: =s+1; end; writeln (s); end. На компе нету паскаля, если что-то неработает пишиP.S. Нравится решение? Отметь как лучшее!
Знаете другой ответ?