:напечатать и подсчитать сумму всех четных чисел от 10 до 30.

Var sum,i: integer; begin write('чётные числа от 10 до 30: '); for i: = 10 to 30 do   if i mod 2 = 0 then     begin   write(i: 4);   sum: =sum+i;   end; writeln; writeln('их сумма = ',sum); end.

10,12.14,16,18,20,22,24,26,28,30: общее  количество  11

// pascalabc.net 3.3, сборка 1611 от 06.01.2018 // внимание! если программа не работает, обновите версию! begin   var a: =arrrandom(readinteger('n=',3); a.println;   var s: =a.select((x,i)-> (x,(t-> t[0]=0).toarray;   if s.length> 0 then begin       var b: =arrgen(s.length,i-> s[i][1]+1).toarray;       b.println(',')       end   else writeln('нет нулевых элементов') end. пример n= 20 1 -3 0 3 -1 0 1 -2 1 1 0 -3 -3 -3 -2 2 -3 3 1 -1 3,6,11

// pascalabc.net 3.3, сборка 1611 от 06.01.2018 // внимание! если программа не работает, обновите версию! begin   var n: =abs(readinteger('n='));   var (k,s): =(0,0);   while n> 0 do begin       var d: =n mod 10;       if d mod 3=0 then (k,s): =(k+1,s+d);       n: =n div 10       end;   writeln('в числе ',k,' цифр, кратных 3. их сумма равна ',s)   end. пример n= 6035 в числе 3 цифр, кратных 3. их сумма равна 9