Var a,b,c,k,kol:
integer;
begin
writeln ('введите число');
readln(a);
kol:=1;
c:=10;
while (a<>0) do begin
b:=a mod
10;
if (b<c) then c:=b;
if b=k then kol:=kol+1;
a:=a div 10;
k:=c;
end;
writeln('минимальная цифра ==> ',c);
writeln('в этом числе этих цыфр ==> ',kol);
<span>end.</span>
В медицине (применяется в процессе обучения хирургов)
В науке (для моделирования разных процессов )
В искусстве (компьютерная мультипликация)
В развлечениях (компьютерные игры)
В рекламирование (рекламные ролики )
Первый этап для создания колонок:
<span>Можно сначала набирать текст, а можно дать команду по делению на колонки.
</span>Ответ: к).
Const N = 50;
var a: array[1..N] of integer;
sum, i: integer;
begin
sum := 0;
a[ 1 ] := 1;
for i := 2 to N do begin
a[ i ] := a[ i - 1 ] + 4;
sum := a[ i ] + sum;
end;
for i := 1 to N do
writeln('A[ ', i, ' ]: ', a[ i ]);
writeln;
writeln('Сумма элементов массива: ', sum);
writeln('Значения 10, 20, 30, 40 элементов, стоящих в нечетных позициях: ' );
writeln('A[ 13 ] = ', A[13],', A[ 25 ] = ', A[25], ', A[ 37 ] = ', A[37], ', A[ 49 ] = ', A[49]);
<span>end.</span>
a=input()
spisok0=a.split()
spisok1=[]
schet=0
for i in range(len(spisok0)):
print(schet)
print(spisok0)
if int(spisok0[schet]) == 0:
spisok1.append(0)
del spisok0[schet]
schet-=1
schet+=1
print(spisok0,spisok1)
