const
N=5;
var
a:array [1..N] of integer;
i,k,count:integer;
begin
for i:=1 to N do
begin
a[i]:=random(20);
write(a[i]);
end;
for i:=1 to N do
begin
count:=0;
k:=2;
if a[i] < 2 then count:=1;
while (k*k<=a[i]) and (count = 0) do
begin
if a[i] mod k = 0 then inc(count);
inc(k);
end;
if count = 0 then write(i);
end;
end.
<em>// PascalABC.NET 3.3, сборка 1542 от 05.10.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var (n,m):=ReadInteger2('Введите через пробел n и m:');
var a:=ArrRandom(10,n,m);
a.Println
end.
<u>Пример</u>
Введите через пробел n и m: -6 20
15 10 16 17 1 14 -4 19 1 18
6) Действие 1: заниматься спортом 3 раза в неделю.
Действие 2: устраивать перерывы от компьютера.
7) Мошенничество в сети - это нелегальная область заработка преступников, который заключается в обмане людей и взятию и не возврату у них денег.
Агрессия в интернете - это агрессия людей, которая выражается в цифровом пространстве, обычно в виде видео или/и сообщений.
8) Первая рекомендация: не заходить на незнакомые ссылки, отправленные вам другим человеком, или если заходить - то выключать скриптовый язык в вашем браузере при просмотре страницы.
Вторая рекомендация: быть внимательным и бдительным как в жизни, не доверять свои деньги незнакомым людям и сомнительным сайтам.
Третяя рекомендация: Проверять антивирусом все скачиваемые вами файлы, ведь в них могут быть вирусы, которые могут навредить вашему компьютеру и похитить ваши персональные данные.
Program a1;
uses crt;
var
ta,b, i,s:integer;
begin.
readln(a);
readln(b);
s:=0;
if a > b then
for i:= a to b do
if i mod 7 = 0 then
s:=s+i;
else
else
if b > a then
for i:= b to a do
if i mod 7 = 0 then
s:=s+i
begin
end;
writeln(s);
end.
Оператор условия.
Если (действие, утверждение), то.... иначе....