var x: integer;
begin
write('X=');
readln(x);
if x mod 2=0 then
writeln('X является чётным числом');
else
writeln('X является нечётным числом');
end;
Насколько он сместился за эти три команды "Сместиться на (-5, -1) Сместиться на (3, 2) Сместиться на (3, -1)"? на (-5 +3 +3,-1 +2 -1) = (1,0).
Теперь умножаем полученные координаты на количество повторений: (3,0).
Ещё перед этим он сместился на (-4, -1), значит суммарно он сместился на (3 -4, 0 -1) = (-1, -1). И чтобы вернуться обратно, нужно сместиться на это же значение, но в противоположную сторону, то есть, на (1,1)
6) Действие 1: заниматься спортом 3 раза в неделю.
Действие 2: устраивать перерывы от компьютера.
7) Мошенничество в сети - это нелегальная область заработка преступников, который заключается в обмане людей и взятию и не возврату у них денег.
Агрессия в интернете - это агрессия людей, которая выражается в цифровом пространстве, обычно в виде видео или/и сообщений.
8) Первая рекомендация: не заходить на незнакомые ссылки, отправленные вам другим человеком, или если заходить - то выключать скриптовый язык в вашем браузере при просмотре страницы.
Вторая рекомендация: быть внимательным и бдительным как в жизни, не доверять свои деньги незнакомым людям и сомнительным сайтам.
Третяя рекомендация: Проверять антивирусом все скачиваемые вами файлы, ведь в них могут быть вирусы, которые могут навредить вашему компьютеру и похитить ваши персональные данные.
Var a:array[1..12,1..20] of real;
i,j,n:integer;
s:real;
begin
// Заполним массив случайными значениями для теста
for i:=1 to 12 do
for j:=1 to 20 do
a[i,j]:=random*20000;
writeln('Номер сотрудника ');
readln(n);
for i:=1 to 12 do
s:=s+a[i,n];
writeln('Зарплата за год ',s);
end.