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

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

1

Ответы и объяснения

2013-09-27T10:52:39+04:00
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 простое.