Фестиваль исследовательских и творческих работ учащихся "Портфолио ученика" 
Учительский фестиваль педагогических идей 
- Опуликовал: Томашевич В.
- |
- Коментариев: 0
- |
- Просмотров: 600
var
i, s: integer;
begin
for i := 100 to 10000 do if (i mod 20 = 0)and (i mod 3 = 0) then begin s := s + i; write(i, ' '); end;
writeln('s=', s);
end.
var
i, s: integer;
begin
for i := 100 to 10000 do if (i mod 20 = 0)and (i mod 3 = 0) then begin s := s + i; write(i, ' '); end;
writeln('s=', s);
end.
