что нельзя:
1)В интернете нельзя лазять по разным не проверенным сайтам
2)Нельзя скачивать какие либо вещи с не проверенных сайтов
3)Нельзя делится местоположением своего дома и когда Вы куда либо уезжаете
4)Нельзя использовать простые пароли которые можно угадать
5)Нельзя использовать одни и те же пароли
6)Нельзя кликать по ссылкам на письмах от людей которых вы не знаете, и на непроверенных сайтов
7)Не используйте не безопасное соединение VPN
8)Не совершайте покупки на непроверенных сайтов
9)Не переписывайтесь с подозрительными незнакомцами
10)Не скачивайте ничего без антивируса
Объяснение:
что можно:
1)Можно сидеть на проверенных сайтах
2)Можно скачивать разные вещи с проверенных сайтов
3)Можно переписываться с людьми которые проверенные и точно никак не плохие
4) Можно использовать безопасное соединение VPN
5)Можно совершать покупки на проверенных сайтах
6)Ставить разные пароли на разные соцсети
7)Ставить не свою дату рождения, не свое имя не свое фото на аватарку
8)Можно переходить по ссылкам в письмах от знакомых вам людей
9)скачать антивирус
10) обмен чем либо с проверенными людьми
надеюсь ❤️
Задание 1)
var
k,i,s,s2 : integer;
begin
s:=0; s2:=0;
for i:=50 to 100 do
begin
write('k - ', i, ' = '); read(k);
if (k mod 2 = 0) or (k mod 3 = 0) then
s:=s+k;
if (k mod 2 <> 0) or (k mod 3 <> 0) then
s2:=s2+k;
end;
writeln('Сумма кратных 2 и 3 = ', s);
writeln('Сумма не кратных 2 и 3 = ', s2);
end.
Объяснение:
Инициализируем переменные, запускаем цикл от 50 до 100, считываем значение k и проверяем кратно ли оно 2 и 3, или нет. Если да - складываем с переменной s. Если нет - с переменной s2. Выводим суммы чисел.
Задание 2)
var
n,s,r,x,i : integer;
begin
r:=0;
s:=0;
write('n = '); read(n);
for i:=1 to n do
begin
readln(x);
if x mod 2 = 0 then
begin
s:=s+x;
r:=r+1;
end;
end;
writeln('Сумма четных чисел: ', s);
writeln('Колличество четных чисел: ', r);
end.
Объяснение:
Инициализируем переменные, считываем N, запускаем цикл от 1 до n.
Считываем в цикле значение x и проверяем четное ли оно. Если да - складываем его сумму и считаем сколько их (Переменные s и r). Затем выводим их.
var
a: string;
b: array[1..9]of integer;
sort: boolean;
max, k: integer;
begin
Readln(a);
for var i := 1 to Length(a) do
b[i] := strtoint(a[i]);
sort := false;
while sort = false do
begin
sort := true;
k += 1;
for var i := 1 to Length(a)-1 do
begin
if a[i] < a[i+1] then
begin
sort := false;
var value2 := a[i];
a[i] := a[i+1];
a[i+1] := value2;
end;
end;
end;
write(a[1]);
end.
Программа написана на PascalABC.net
на free pascal или turbo pascal она может не работать