- Опуликовал: Томашевич В.
- |
- Коментариев: 0
- |
- Просмотров: 693
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.
| « Декабрь 2025 » | ||||||
|---|---|---|---|---|---|---|
| Пн | Вт | Ср | Чт | Пт | Сб | Вс |
| 1 | 2 | 3 | 4 | 5 | 6 | 7 |
| 8 | 9 | 10 | 11 | 12 | 13 | 14 |
| 15 | 16 | 17 | 18 | 19 | 20 | 21 |
| 22 | 23 | 24 | 25 | 26 | 27 | 28 |
| 29 | 30 | 31 | ||||