//Pascal ABC.NET v3.1 сборка 1172
//Продвинутый вариант
begin
writeln(range(100,999).Where(x -> x mod 7=0).Where(x -> x mod 9=0).Where(x -> x mod 5=0).Sum);
end.
//"Школьный" вариант
Var
i,s:integer;
begin
for i:=100 to 999 do
if (i mod 5=0) and (i mod 7=0) and (i mod 9=0) then s:=s+i;
writeln(s);
end.
Вывод:
1890
Program zz;
var i,n,m:integer;
begin
readln(n,m);
for i:=1 to n do
write('?') ;
for i:=1 to m do
write('!') ;
end.<span>
</span>
С помощью 5 битов можно закодировать всего 2^5=32 разных числа. Если считать по порядку начиная от 0, то самым большим числом будет 31.
Систем где обмениваются сообщениями(письмами) называется: Интернет