Question

Помогите решить инфу срочно надо ​

Answer 1

Ответ:

1)

Begin

Read(a);

S:=a mod 10+a div 10;

Writeln(s);

Writeln(a-s);

End.

2)

function Prost(a:longint):boolean;

var i:longint;

f:boolean;

begin

if a<2 then f:=false{первое простое=2}

else

begin

f:=true;{считаем что простое}

i:=2;

while (i*i<=a) and f do{пока счетчик меньше корня из числа и нет делителей}

if a mod i=0 then f:=false{если делитель, не постое}

else i:=i+1;{иначе дальше}

end;

Prost:=f;{результат true или false}

end;

Begin

Read(a,b);

For i:=a to b do

If Prost(i) then

Writeln(i);

End.

3)

Begin

Sum:=0;

For i:=1 to n do

If a[n] mod 3 = 0 then

Sum:=sum + a[n];

End.