Rss
Виртуальный кабинет МАТЕМАТИКУС
Популярное
Календарь
«     2024    »
 123
45678910
11121314151617
18192021222324
25262728293031
Журнал "Математика"
Математика
Счетчик посещений
счетчик посещений
Flag Counter

Опросы
Оцените работу сайта
Лучший
Неплохой
Устраивает ... но ...
Встречал и получше
Совсем не понравился

Интернет с пользой
Интернет с пользой
pr-9.pas [171 b] ( 0)
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.

Облако Тегов

{links}