56

1) Определить сумму и кол-во цифр числа 2) Определить явл-ся ли число простым (если…

18 февраля 2023

1) Определить сумму и кол-во цифр числа 2) Определить явл-ся ли число простым (если делится только на 1 и на самого себя) вDelphi7

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

35

1. while (n > 0) do begin inc (c); inc (s, n mod 10); n: =n div 10; end; 2. fl: =true; for i: =2 to n div 2 do if (n mod i=0) then begin fl: =false; break; end; if (fl) then простое.

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

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