Если первый кратный 3, то после срабатывания условия <span>if a[i] mod 3=0 и удаления элемента, должен быть выход из цикла(break).</span>
Линейка семейства Windows NT:
<span>· </span>Windows NT 3.1
<span>· </span>Windows NT 3.5
<span>· </span>Windows NT 3.51
<span>· </span>Windows NT 4.0
<span>· </span>Windows 2000 – 5.0
<span>· </span>Windows XP – 5.1
<span>· </span>Windows Server 2003 – 5.2
<span>· </span>Windows Vista, Windows Server 2008 – 6.0
<span>· </span><span>Windows 7, Windows Server 2008 R2 – 6.1</span>
К примеру. <span>ŀx+1l
</span>Модулем действительного число называется расстояние от начала отсчёта до точки, соответствующей данному числу. Например, I4I=4, I-5I=5, I0I=0.
Есть ещё такое определение. Оно используется при решении уравнений и неравенств.
IХI=Х, если Х>=0 (модуль неотрицательного числа равен самому себе)
IХI=-Х, если Х<0 (модуль отрицательного числа равен числу, ему противоположному) .
В Вашем примере:
Iх+1I=х+1, если х+1>=0, то есть х>=-1
<span>Iх+1I=-х-1, если х+1<0, то есть х<-1</span><span>
</span>
Есть много разных способов решения этой задачи. Например:
var n:integer; b:boolean; m:set of 0..9;
begin
write('n='); readln(n);
m:=[];
b:=false;
while (n>0) and not b do
if n mod 10 in m then b:=true else begin m:=m+[n mod 10]; n:=n div 10; end;
if b then writeln('Да') else writeln('Нет');
end.
Пример:
n=123432
<span>Да
Вот ещё вариант:
var n,m,n1,m1,b:integer;
begin
write('n='); readln(n);
b:=0;
while n>0 do
begin
m:=n mod 10;
n:=n div 10;
n1:=n;
while n1>0 do
begin
m1:=n1 mod 10;
if m=m1 then b:=1;
n1:=n1 div 10;
end;
end;
if b=1 then writeln('Да') else writeln('Нет');
end.</span>
var s,vk:real;
m:integer;
begin
s:=100000;
vk:=0;
m:=0;
while vk<=30 do
begin
vk:=vk+0.04*s;
s:=1.04*s;
m:=m+1;
end;
write(m);
end.
Это решение для ваших параметров.
Uses Crt;
var s,vk,pc:real;
m:integer;
begin
clrscr;
Writeln('Введите сумму вклада:');
Read(s);
Writeln('Введите месячный процент(%):');
read(pc);
pc:=pc/100;
vk:=0;
m:=0;
while vk<=30 do
begin
vk:=vk+pc*s;
s:=(1+pc)*s;
m:=m+1;
end;
write('Вклад превысит 30 руб через ',m,' месяцев');
end.
Это решение для задаваемых параметров
Вопросы, недочеты в ЛС