Var n,i,t,p:integer;
begin
readln(n);
for i:=2 to n do begin
t:=i;
p:=1;
repeat
p:=p*(t mod 10);
t:=t div 10;
until t=0;
if (p<>0)and(i mod p=0) then write(i,' ');
end;
end.
Мне кажется 2)вообще приемник принимает,а источник дает инфу)
Без прелюдий, только основная часть программы:
While (p<>1)
do begin
readln(p);
{a)} if p mod 7 = 0
then a+=1;
{б)} if (p>10) and (p<=100)
then b+=p;
{в}if (p mod 3 =0) and (p mod 5 = 0)
then s+=p;
end;
...
Это для паскаль ABC или ABC.NET
128=2в 7ой степени
i=7
7×25=175