Вот функция проверки числа на простоту
bool isSimple(int n){
for(int i=2;i<=sqrt(n);i++)
if(n%i==0) return false;
return true;
}
Var a, n, i, s : integer;
begin
read (n);
for i:=1 to n do
begin
read (a);
s:=s+a;
end;
write (s);
end.
В последовательном соединении
<em><u>P.S. Надеюсь на благодарность и лучший ответ.</u></em>
1.+++-
2.++++
3.++++
4.+---
5.+--+
6.----
А алфавит какой рус или укр?