При увеличении в растровом изображении начинают виднеться пиксели, а приуменьшении пиксели сливаются и картинка становится не ясной. При вращении качество не меняется
Var
a:array[1..6]of integer;
i,j,max:integer;
function mx(a,b:integer):integer;
begin
if a>b then result:=a else result:=b;
end;
begin
for i:=1 to 6 do
begin
a[i]:=random(20);
write(a[i]:4);
end;
writeln;
max:=a[1];
for i:=1 to 6 do
for j:=i+1 to 6 do
if mx(a[i],a[j])>max then max:=mx(a[i],a[j]);
writeln('max=',max);
<span>end.</span>
Представить систему как чёрный ящик - это значит указать её входы и выходы
Алгоритм:
1 цифра числа + 2 цифра числа - 1.
Вход / Выход
91 / 9
80 / 7
73 / 9
20 / 1
60 дней ответ
1) берешь арифметическую прогрессию 5,6,7 и тд
2)в итоге за 59 дней он придумает 2006 песенок а за 60 он как раз допридумывает