Если в паскале то вот
vara:array [1..30] of integer;i,s,k,n:integer;h:real;begins:=0;k:=0;writeln('введите количество чисел');read(n);randomize;for i:=1 to n do begina[i]:=random(100);write(a[i]:3);end;writeln();for i:=1 to n do beginif (a[i] mod 2=0) and (i mod 2=0) then begins:=s+a[i];k:=k+1;end;end;if k>1 then h:=s/k;writeln(h); if k=0 then begin writeln('таких чисел нет'); read; halt; end;<span>end.</span>
Var s,s1,s2:string; i:integer;
begin
writeln('Введите строку:');
readln(s);
s1:=s;
while pos(' ',s1)>0 do delete(s1,pos(' ',s1),1);
writeln('Строка без пробелов:');
writeln(s1);
s2:='';
for i:=1 to length(s1) do
if s1[i]='.' then s2:=s2+'. ' else s2:=s2+s1[i];
writeln('Строка с пробелами после ".":');
writeln(s2);
end.
Пример:
Введите строку:
1. 2. 3. 4. 5. Вышел зайчик. Погулять.
Строка без пробелов:
1.2.3.4.5.Вышелзайчик.Погулять.
Строка с пробелами после ".":
1. 2. 3. 4. 5. Вышелзайчик. Погулять.
512 и 1818
159, 172, 11,824 не подходят, потому что нужен порядок возрастания
1619,519 тоже не подходят, потому что максимальная сумма цифр может быть 18, а тут 19
<span>var
a,x:integer;
Sum: integer;
begin
WriteLn('введите целое число');
ReadLn( a );
x:= a;
</span>Sum<span>:= 0;
while ( x<>0 ) do
begin
</span>Sum := Sum<span> + (x mod 10);
x := x div 10;
end;
WriteLn( 'Сумма цифр числа ',a,' = ', </span>Sum<span> );
</span>Пока Х больше нуля:
Находим остаток от деления n на 10 (т.е. последнюю цифру числа), добавить его к сумме и увеличить произведение;Избавляемся от последнего разряда числа n путем деления нацело на число 10.