Ответ:Исходная цепочка: И1Э73Р
1. 1Э73Р
Э137Р
2. Э137РА
1Э73АР
Ответ:1Э73АР
6) Действие 1: заниматься спортом 3 раза в неделю.
Действие 2: устраивать перерывы от компьютера.
7) Мошенничество в сети - это нелегальная область заработка преступников, который заключается в обмане людей и взятию и не возврату у них денег.
Агрессия в интернете - это агрессия людей, которая выражается в цифровом пространстве, обычно в виде видео или/и сообщений.
8) Первая рекомендация: не заходить на незнакомые ссылки, отправленные вам другим человеком, или если заходить - то выключать скриптовый язык в вашем браузере при просмотре страницы.
Вторая рекомендация: быть внимательным и бдительным как в жизни, не доверять свои деньги незнакомым людям и сомнительным сайтам.
Третяя рекомендация: Проверять антивирусом все скачиваемые вами файлы, ведь в них могут быть вирусы, которые могут навредить вашему компьютеру и похитить ваши персональные данные.
Const
n = 5;// количество элем массиваvar
a: array [1..n] of integer;
sum, i: integer;begin
for i := 1 to n do
readln(a[i]);
for i := 1 to n do
if a[i] = i then
sum := sum + a[i];
writeln(sum);
end.
Program Zadacha;
Var s: String;
c: Char;
i, pos, count:
Integer;
Begin
WriteLn('Введите слово:');
ReadLn(s);
WriteLn('Введите символ:');
ReadLn(c);
pos := 0;
count := 0;
For i := 1 To Length(s) Do
If s[i] = c Then
Begin
count := count + 1;
If pos = 0 Then
pos := i;
End;
WriteLn('Позиция символа в строке: ', pos);
WriteLn('Количество вхождений символа в строку: ', count);
ReadLn;
<span>End.</span>