emilbadalov
?>

Паскаль, ! дан фрагмент программы, который решает поиска номера последней минимальной цифры в записи десятичного целого числа (считается, что цифры в числе пронумерованы справа налево) и выводит ее на экран. определите, какой оператор необходимо вставить вместо троеточия ( . . ), чтобы правильный результат выдавался для любого целого числа n. все используемые переменные имеют целый тип данных. ответ записывайте без пробелов. на языке паскаль readln(n); mc: =9; i: =0; k: =1; n: =abs(n); while n< > 0 do begin с: =n mod 10; n: =n div 10; i: =i+1; if then begin mc: =c; k: =i; end; end; writeln(k); . 10 минут осталось, подалуйста.

Информатика

Ответы

Leobed917670
(i> k) and (c < = mc) 20 символов
yocrew13
Аналогичная той, которую публиковали вчера. только цикл repeat заменяем на while.сначала немного .о модуле тут смысла нет говорить, поскольку все an - суть положительные величины на интервале (0; 1).uses crt; function ai(n: integer): real; var  i: integer;   p: real; begin  p: =1;   for i: =n+1 to 2*n do p: =p*i;   ai: =1/pend; var  i: integer;   eps,s,an: real; begin  clrscr;   write('eps='); read(eps);   s: =0; i: =1; an: =eps+1;   while an> =eps do begin      an: =ai(i);       if an> =eps then begin s: =s+an; inc(i) end  end;   writeln('s=',s);   readkeyend.тестовые решения: eps=0.07s= 5.8333333333e-01eps=0.000001s= 5.9229647667e-01eps=1e-8s= 5.9229653448e-01для контроля результата можно отметить, что сумма первых 1000 членов ряда равна приблизительно 5.922965365е-01 если раздражает наличие функции, можно и без нее: uses crt; var   i,j: integer;   eps,s,an,p: real; begin   clrscr;   write('eps='); read(eps);   s: =0; i: =1; an: =eps+1;   while an> =eps do begin       p: =1;       for j: =i+1 to 2*i do p: =p*j;       an: =1/p;       if an> =eps then begin s: =s+an; inc(i) end   end;   writeln('s=',s);   readkey end.
Джамал1009
Uses crt; const   n=15; var   a: array[1..n] of integer;   i,j,k,t: integer;   found: boolean; begin   clrscr;   randomize;   writeln('исходный массив: ');   for i: =1 to n do begin       a[i]: =random(90)+1;       write(a[i],' ')   end;   writeln;   i: =n; found: =false;   repeat       found: =(a[i] mod 2=0);       if (not found) then dec(i)   until found or (i=0);   if found then begin       for i: =i to n-1 do a[i]: =a[i+1];       writeln('результирующий массив: ');       for i: =1 to n-1 do write(a[i],' ')   end;   readkey end. тестовое решение: исходный массив: 60 90 39 83 24 70 82 53 45 5 12 9 85 57 47 результирующий массив: 60 90 39 83 24 70 82 53 45 5 9 85 57 47

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

Паскаль, ! дан фрагмент программы, который решает поиска номера последней минимальной цифры в записи десятичного целого числа (считается, что цифры в числе пронумерованы справа налево) и выводит ее на экран. определите, какой оператор необходимо вставить вместо троеточия ( . . ), чтобы правильный результат выдавался для любого целого числа n. все используемые переменные имеют целый тип данных. ответ записывайте без пробелов. на языке паскаль readln(n); mc: =9; i: =0; k: =1; n: =abs(n); while n< > 0 do begin с: =n mod 10; n: =n div 10; i: =i+1; if then begin mc: =c; k: =i; end; end; writeln(k); . 10 минут осталось, подалуйста.
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

shumeikoElena362
bogdanovaoksa
magnit-expo
смирнов1127
uchpapt
dubaiexport
tkozina
evageniy79
slastena69678
mgrunova3966
Марина566
Kelena190533
Олег1105
Vyacheslavovna
av52nazarov