var D,R:integer;
begin
writeln('Введите значение R: ');
readln(r);
D:=2*R;
writeln('D = ',D);
end.
Program aaa;
var A,B: array[1..4,1..4] of integer; i,j,x: byte;
begin
randomize; //запускаем генератор случайных чисел
// формируем и одновременно выводим матрицу
writeln ('Исходная матрица:');
for i:=1 to 4 do
begin
for j:=1 to 4 do
begin
A[i,j]:=random(-10,10); //рандомное значение ячейки матрицы
write(A[i,j]:4) //вывод ячейки матрицы
end;
writeln;
end;
//поворачиваем матрицу на 90 градусов
for j:=1 to 4 do
begin
x:=0;
for i:=4 downto 1 do
begin
x:=x+1;
B[j,x]:=A[i,j]
end
end;
// выводим итоговую матрицу
writeln;
writeln ('Матрица, повернутая на 90 градусов:');
for i:=1 to 4 do
begin
for j:=1 to 4 do
write(B[i,j]:4);
writeln
end
end.
--------------------------------------------------
Результат работы программы:
Исходная матрица:
-7 -8 3 4
10 -5 -1 -8
3 -9 -7 -1
-2 6 -8 -9
Матрица, повернутая на 90 градусов:
-2 3 10 -7
6 -9 -5 -8
-8 -7 -1 3
-9 -1 -8 4
6) Действие 1: заниматься спортом 3 раза в неделю.
Действие 2: устраивать перерывы от компьютера.
7) Мошенничество в сети - это нелегальная область заработка преступников, который заключается в обмане людей и взятию и не возврату у них денег.
Агрессия в интернете - это агрессия людей, которая выражается в цифровом пространстве, обычно в виде видео или/и сообщений.
8) Первая рекомендация: не заходить на незнакомые ссылки, отправленные вам другим человеком, или если заходить - то выключать скриптовый язык в вашем браузере при просмотре страницы.
Вторая рекомендация: быть внимательным и бдительным как в жизни, не доверять свои деньги незнакомым людям и сомнительным сайтам.
Третяя рекомендация: Проверять антивирусом все скачиваемые вами файлы, ведь в них могут быть вирусы, которые могут навредить вашему компьютеру и похитить ваши персональные данные.