помогите решить инфу безотлагательно надобно

Ответ:

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 alt;2 then f:=false1-ое обычное=2

else

begin

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

i:=2;

while (i*ilt;=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.