1)
int f(int x,int p, int y)
{int k=0;
while(x<y)
{
x=+p*x/100;
k++;
}
return k;
}
2)
int f(int A)
{int x=1, y=1, n=2;
while(x<A || y<A)
{
if(x<y)
x=+y;
else
y=+x;
}
n++;
}
if(A=y || A=x )
return n;
else
return -1;
}
CONST<span> k=10; </span>{k - количество чисел в массиве}VAR<span> a:array[1..k] of integer;</span><span> i,summ,n:integer; </span>{i - счетчик цикла, summ - сумматор, n - количество элементов массива с четным значением}<span> sr:real; {sr - среднее арифметическое} </span>BEGIN summ:=0; n:=0; {Обнуляем счетчики}<span> for i:=1 to k do </span> begin a[i]:=random(50); {Заполняем массив случайными числами}<span> write (a[i],' '); </span>{Выводим массив}<span> if a[i] mod 2=0 then </span> begin<span> summ:=summ+a[i]; </span>{Находим сумму элементов массива с четными значениями} n:=n+1 end end;<span> sr:=summ/n; </span>{Находим среднее арифметическое} writeln; writeln (sr:0:2) {Выводим среднее арифметическое}END.
Var ch: char;
begin
write('Введите символ: '); read(ch);
writeln('Предыдущий символ: ', pred(ch), ' | ', 'Следующий символ: ', succ(ch));
<span>end.</span>
Монитор... клавиатура... мышка.... наши главные помощники в XXI веке. Это просто наше счастье! К примеру мышка это наш путеводитель по всему компьютеру, монитор помогает нам видеть, что происходит, когда мы пользуемся мышкой, а вот клавиатура... это помощник который нам тоже не мало нужен! Все эти вещи взаимосвязаны! Они нам помогают почти каждый день!