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

Question

56

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

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

ответить

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

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

ostap · Accepted Answer

35

ostap

03 апреля 2023

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 простое.

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

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

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

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