Question

даю 90балы сирёзнаажееежеее​

Answer 1

Ответ:

252

Объяснение:

var a,i,s:integer;

begin

 read(a);

 for i:=1 to a do begin

   if (i mod 14 = 0) and (i mod 21 = 0) then

     s:=s+i;

 end;

 writeln(s);

end.