Question

Помогите пожалуйста с инфоматикой
Написать программу на Паскале

Answer 1

var

 sum,i,min:integer;

 flag:boolean;

begin

 flag:=false;

 i:=1529; sum:=0;

 repeat

   if i mod 5 = 3 then

     begin

       writeln(i,'  ',);

       sum:=sum+i;

       if not flag then  

         begin

           min:=i;

           flag:=true;

         end;

     end;

   i:=i+4;

 until i>9482;

 writeln('sum: ',sum);

 writeln('min: ',min);

end.