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

Question

45

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

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

ответить

в избранное ссылка

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

ziksow · Accepted Answer

68

ziksow

17 февраля 2023

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.

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: