Ответ:
В абсолютной темноте кошки не видят, но светочувствительность их глаз в разы лучше, чем у человека, поэтому они легче и быстрее воспринимают очень слабоосвещённые предметы. К примеру, если кошка осталась в комнате, куда свет попадает лишь через маленькую щель, то она всё ещё сможет неплохо в ней ориентироваться.
Var i, j, h, a, z, n, k: integer;
array1: array [1..100] of integer;
array2: array [1..100] of integer;
procedure swap(var x, y: integer);
var t: integer;
begin
t := x; x := y; y := t
end;
begin
randomize;
write('Введите значение N: ');
readln(n);
for i := 1 to n do
begin
array1[i] := random(10) + 1;
end;
for i := 1 to n do
begin
writeln('Массив:');
for i := 1 to n do write(array1[i], ' ');
writeln;
end;
for h := 1 to n - 1 do
for z := 1 to n - h do
if array1[z] > array1[z + 1] then
swap(array1[z], array1[z + 1]);
for i := 1 to n do
begin
writeln('После сортировки:');
for i := 1 to n do write(array1[i], ' ');
writeln;
end;
for i:=1 to n do
begin
k := 0;
for j := 1 to n do
if array1[i] <> array1[j] then k:=k+1;
if k = n - 1 then array2[i] := array1[i];
end;
for i := 1 to n do
if array2[i] > 0 then a := a + 1;
writeln('Различных чисел: ', a);
end.
// PascalABC.Net
function IsNice(n:longint):boolean;
// Отвечает на вопрос, является ли число красивым
var
d,nd,sd:byte;
begin
sd:=0; nd:=0;
repeat
d:=n mod 10;
sd:=sd+d; Inc(nd);
n:=n div 10
until n=0;
IsNice:=(sd mod nd = 0)
end;
var
i,n,k:longint;
begin
Write('Порядковый номер "красивого" числа: '); Read(n);
i:=1; k:=0;
repeat
if IsNice(i) then Inc(k);
if k<>n then Inc(i)
until k=n;
Writeln('Красивое число равно ',i)
end.
<em><u>Тестовое решение:</u></em>
Порядковый номер "красивого" числа: 15
Красивое число равно 20
Ответ:
Может быть опасный вирус.
Способы защиты: установить антивирус и сразу же обновлять операционную систему а не ждать полвека.
Могут тебя хакнуть.
Способы защиты: не говорить свой пароль любым знакомым даже лучшим друзьям. А также ставить надежные пароли а не 1 2 3 4 а например 8 5 6 7
Могут вычислить твой IP и доставать тебя в реальной жизни.
Способы защиты: поставить турбо VPN
Могут вычислить твой пин-код и снять все твои деньги
Способы защиты: не говорить свой пароль любым знакомым даже собственным родителям!!!!!!!!!!!!!!!!!!!!!
Обдурить тебя сказочкой Вы выиграли миллион доларов
Способы защиты: Удалять весь спам.
uses crt;
var a:array[1..100,1..100] of integer;
n,m,s:integer;
begin
clrscr;
randomize;
write('n='); read(n);
write('m='); read(m);
for n:=1 to n do
for m:=1 to m do
a[n,m]:=random(100);
writeln('massiv:');
for n:=1 to n do
begin
for m:=1 to m do
write(a[n,m],' ');
writeln;
end;
for n:=1 to n do
for m:=1 to m do
begin
if (a[n,m] mod 5 =0)and (a[n,m] mod 3<>0) then
begin
s:=n;
write('stroka ',s,'; ');
end;
end;
end.