В отрицательную сторону.
За исключением "специальных" случаев масштабирования, например когда обе стороны увеличиваются в 2 раза, и из 1 пикселя получается 4 того же цвета, однако такой метод не применяется, ибо не имеет смысла.
Конечно, актуально только для растра.
//Pascal ABC.NET 3.1 сборка 1219
Const
n=10;
Var
ar:array[1..n] of integer;
i,j,c:integer;
begin
randomize;
readln(c);
writeln('Array:');
for i:=1 to n do
begin
ar[i]:=random(-10,10);
write(ar[i]:4);
end;
for i:=1 to n-1 do
for j:=i+1 to n do
if (ar[i]>ar[j]) and (ar[i]<0) and (ar[j]<0) and (ar[i] mod c=0) and (ar[j] mod c=0) then swap(ar[i],ar[j]);
writeln;
writeln('Final array:');
for i:=1 to n do
write(ar[i]:4);
end.
Пример ввода:
2
Пример вывода:
Array:
-7 3 9 -2 7 -7 3 -6 -6 -3
Final array:
-7 3 9 -6 7 -7 3 -6 -2 -3
S - это счетчик
потом читаем n
x присваиваем значение 5
(цикл) цикл будет работать от x (тоесть от 5) и до тех пор пока n не будет равно x увиличаем число на определённое значение s(тоесть 0,(то число которое ты ввел)находим целую часть этих чисел при делении на x )
x присваиваем значение x * 5
выводим в s
И программа вообще не работает (что тебе нужно найти?)
Интернет всемирная глобальная компьютерная сеть.
World Wide Web - Всемирная паутина:сетевой сервис, поддерживающий гипертекстовое пространство Интернета.
Web -страница - отдельный документ W W W.
Web - сервер - компьютер в сети Интернет, хранящий Web-страницы и соответствующее программное обеспечение для работы с ним.
Web - сайт- совокупность тематически связанных Web - страниц.
Гипермедия-система гиперсвязей между мультимедиа документами.
Web - браузер-клиент-программа для работы пользователя с W W W.
Киберпространство совокупность мировых систем телекоммуникаций и циркулирующей в них информации
Program rrr;
var a,s:longint;
begin
read(a);
s:=455545656566556;
if (a mod 4)=0 then s:=a div 2
else s:=a;
write(s);
end.
