45

Решите 2 программы. 1) Найдите количество двухзначных чисел, которые делятся на…

09 марта 2023

Решите 2 программы. 1) Найдите количество двухзначных чисел, которые делятся на сумму своих цифр. 2) Составьте программу вычисленияколичества трехзначных чисел, у которых сумма цифр является четным числом.

категория: информатика

68

1) uses crt; var i,k: integer; beginfor i: =10 to 99 doif i mod (i mod 10)+(i div 10)=0 then inc (k); writeln (k); end.2) uses crt; var i,k: integer; beginfor i: =100 to 999 doif (i mod 10)+(i div 100)+(i div 10) mod 10) mod 2=0 then inc (k); writeln (k); end.

Знаете ответ?

Есть интересный вопрос? Задайте его нашему сообществу, у нас наверняка найдется ответ!
Делитесь опытом и знаниями, зарабатывайте награды и репутацию, заводите новых интересных друзей!
Задавайте интересные вопросы, давайте качественные ответы и зарабатывайте деньги. Подробнее...