Abc pascal выручайте! кто шарит решите! прогой ! решите хотя бы 1 1.найти все трёхзначные числа у которых сумма цифр a- , а само число делится на b. a и b-набираются с клавиатуры! 2.дано четырёхзначное число найти сумму цифр этого числа 3.дано трёхзначное число найти количество чётных цифр этого числа. 4.найти в делителе трёхзначное число. 5.дан массив из 25 элементов. найти сумму нечётных эл. 6.дан массив из 20 эл. подсуньте полные элементы массива значение которых больше числа a и кратным 5.

2)program sumcifr;
var
n: longint;
k,s: integer;
j:integer;
begin
s:=0;
 j:=0;
write('вв число > ');
readln(n);
 k:=n;
while n>0 do begin j:=j+1;s:=s+n mod 10;
 writeln( n mod 10);
n:=n div 10;
end;
writeln('сумма цифр числа=  ',s);
readln;
end.

// PascalABC.NET 3.1, сборка 1200 от 13.03.2016
begin
  var x:=-2.0;
  while x<=2 do begin
    Writeln('x=',x:4:1,' y=',x*x*x+12:6:3);
    x+=0.2
    end
end.

Результат выполнения программы:
x=-2.0 y= 4.000
x=-1.8 y= 6.168
x=-1.6 y= 7.904
x=-1.4 y= 9.256
x=-1.2 y=10.272
x=-1.0 y=11.000
x=-0.8 y=11.488
x=-0.6 y=11.784
x=-0.4 y=11.936
x=-0.2 y=11.992
x= 0.0 y=12.000
x= 0.2 y=12.008
x= 0.4 y=12.064
x= 0.6 y=12.216
x= 0.8 y=12.512
x= 1.0 y=13.000
x= 1.2 y=13.728
x= 1.4 y=14.744
x= 1.6 y=16.096
x= 1.8 y=17.832
x= 2.0 y=20.000

Var m : array[0..6] of Integer;
  i,k,N : Integer;
Begin
  For i:=0 to 6 do m[i]:=0;
  Readln(N);
  k:=6;
  While N>0 do
  Begin
    If N>=Power(2,k) then
    Begin
      N:=N-Trunc(Power(2,k));
      Inc(m[k]);
    end else Dec(k);
  end;
  For i:=0 to 6 do Writeln(Power(2,i),'  ',m[i],' шт.');
end.

Еще вариант:
Const
  NN = 7;
  money : array[1..7] of Integer = (1,2,4,8,16,32,64);
Var m : array[1..NN] of Integer;
  i,k,N : Integer;
Begin
  For i:=1 to NN do m[i]:=0;
  Readln(N);
  k:=NN;
  While N>0 do
  Begin
    If N>=money[k] then
    Begin
      N:=N-money[k];
      Inc(m[k]);
    end else Dec(k);
  end;
  For i:=1 to NN do Writeln(money[i],'  ',m[i],' шт.');
end.