1. for i := 1 to 10 do begin readln(n); if (even(n)) then s := s + n; end;
2. for i := 1 to 15 do begin readln(n); if (n mod 3 = 0) and (n mod 5 = 0) then inc(c); end;
3. for i := 1 to 10 do begin readln(n); if (10 <= n) and (n <= 20) then m := m * n; end;
1 символ - 1 байт
1 строка - 80 байт(1*80)
1 страница - 80000 байт(80*100)
1 книга = 80000000 байт(80000*1000)
2 гб = 2048 мб = 2097152 кб = 2147483648 б
всего книг - 26(2147483648/80000000)
===== PascalABC.NET =====
begin
ReadSeqInteger('Введите 12 чисел', 12)
.Count(p -> p.InRange(-9, 9)).Println
end.
Барабан: раньше когда не было телефонов,радиоприёмников и т.д., то люди выходили на центральную площадь и барабанили, чтобы оповистить других о приказе царя и т.д.барабанная дробь, так же символ передачи информации, но уже звуковой. Это происходило в старые времена во время военных баталий, так же при военных построениях и парадах, что происходит и по сегодняшний день, барабанный дробь отбивает такт, под который маршируют солдаты.
костёр. при помощи костров передавалась информация. например человек идёт ночью по лесу и видит костёр. для него это значит что там люди.
<span>на великой китайской стене если зажигались "большие костры". это означало тревогу. враг близко.
</span><span>спутниковая антена- позволяет обмениваться информацие со спутником
</span><span>Конь мог быстро доставлять например царю важную информацию. Голубь мог служить почтой тех времен. Почтальон разносил почту людям и они узнавали новости.
</span>Надеюсь помогла
Var
i : longint;
begin
for i:=100 downto 10 do writeln(i);
<span>end;</span>
