program raf105;
var a,b:real;
begin
write('Ввод: ');
read(a);
while a<>0 do
begin
a:= (a-((a/10-(round(a/10)))*10))/10;
b:= b+1;
end;
write('Вывод: ',b);
end.
<em>Программа написана на языке PascalABC.NET</em>
#include <iostream>
#include <cstdlib>
// содержит srand() и rand()
#include <ctime>
using namespace std;
int main()
{
int n=10;
<span> int mas[n] = {};
</span><span> int tmp,j=0;
</span><span> cout<<"random number";
cout<<endl;
</span>// начальная установка генератора случ. чисел
srand(time(NULL));
<span>// заполнение массива случайными числами
</span><span> for (int i = 0; i < n; i++)</span><span>
{
</span><span> mas[i] = rand()/100; cout<<mas[i]<<" ";
</span><span> }</span><span>
cout<<endl;
</span>// перестановка элементов
<span>for (int i = 0; i < n/2; i++)
</span> {<span>
tmp=mas[i];</span><span> mas[i]=mas[2*(i+1)-1];</span><span> j=2*i;
</span> while (j>i)<span>
{</span><span>
mas[j+1]=mas[j];</span><span> j--;
</span><span> }
</span> mas[i+1]=tmp;
<span> }
</span><span>//"массив после замены"
</span><span> for (int i = 0; i < n; i++) </span><span> cout<<mas[i]<<" ";</span><span>
</span><span> cout<<endl;
</span><span> system("pause");
</span><span> return 0;
</span>}
<span>
</span>
При уменьшении пиксели накладываются друг на друга.Цвет теряется. Мелкие детали могут смазаться.Поэтому Ответ с)
ЭТО ОБЫЧНЫЙ КАЛЬКУЛЯТОР,ТОЛЬКО ТАМ КРОМЕ +,- И * ЕСТЬ МНОГО ДРУГИХ ДЕЙСТВИЙ...НАПРИМЕР,ВОЗВЕДЕНИЕ N в степень...