Первая задача:
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-адрес
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