Дан набор ненулевых целых чисео; признак его завершения - число 0. вывести колличество чисел в наборе с 3й цифрой 2

PascalABC.NET 3.4.2, сборка 1864 от 11.11.2018Внимание! Если программа не работает, обновите версию!

begin

 ReadSeqIntegerWhile(t -> t <> 0)

     .Where(t -> Abs(t) mod 1000 div 100 = 2).Count.Print

end.

Пример131 -1085 -1031 -1278 984 259 5 704 1268 -1119 -833 845 327 -615 -252 -761 682 -563 -1264 -426 05

Первая задача:

var digs:String;

   sum, sr:Real;

   i:Integer;

begin

 writeln('Введите 5 чисел через пробел');

 readln(digs);

 digs := digs.Replace(' ', '');

 sum := 0;

 for i := 1 to 5 do

   sum := sum + strToInt(digs[i]);

 sr := sum / 5;

 writeln('Сумма: ' + sum);

 writeln('Сред. арифметическое: ' + sr);

end.

Ввод:

1 2 3 4 5

Вывод:

Сумма: 15

Сред. арифметическое: 3

Вторая задача:

var i:Integer;

begin

 for i := 0 to 10 do

   writeln(i + '^3=' + i**3);

end.

Вывод:

0^3=0

1^3=1

2^3=8

3^3=27

4^3=64

5^3=125

6^3=216

7^3=343

8^3=512

9^3=729

10^3=1000

Шаг 1 Откройте браузер и в адресной строке укажите IP-адрес маршрутизатора 192.168.0.1 или доменное имя Нажмите кнопку Enter

Шаг 2 В окне входа в систему укажите имя пользователя и пароль. По умолчанию имя пользователя и пароль admin

Шаг 3 В левой части окна перейдите в меню Сеть (Network) -> Локальная сеть (LAN) и укажите нужное значение IP-адреса

Шаг 4 Нажмите кнопку Сохранить (Save), чтобы сохранить сделанные изменения

Объяснение:

Примечание: После того как вы изменили IP-адрес необходимо обновить настройки IP-адреса у вашего компьютера или переназначить IP-адрес вашего компьютера. При входе в систему управления маршрутизатором указывается новый IP-адрес