Ответ:
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.
Copyright © 2025 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
Ответ:
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.