Написать программки на Paskal. Цена договорная

[loveradio]

1.С клавиатуры задается число М. Найти количество чисел, лежащих в промежутке от 100 до 999, сумма цифр которых равна сумме цифр числа М.
2.Вычислить произведение m членов арифметической прогрессии, если известно значение первого члена а1 и разность прогрессии d. Числа m,a1,d вводятся с клавиатуры.
3.Найти все двузначные числа, произведение цифр которых не меняется при умножении на 3.
4. Установите, можно ли заданное натуральное число M предоставить в виде произведений кубов двух натуральных чисел
Писать на почту kn.julian@yandex.ru или в вк:http://vk.com/loveolenku

[Serge_Bliznykov]

var i, M, cnt : integer;
begin
  WriteLn('Введите число M: '); Readln(M);
  cnt := 0;
  for i:=100 to 999 do 
    if ((i div 100)+ ((i div 10) mod 10) + (i mod 10)) = M then inc(cnt);

  WriteLn('Таких чисел ', cnt);
  readln
end.

[Poma][a]

№4
http://s.neepic.net/preview/aac4ca96...fa55e8bca4.jpg

var
	n, x, i, a1, b1 : Integer;
		
begin
	ReadLn (n);
	x :=  Trunc(exp((1/3) * ln(n)));
	for i := 1 to Round(Sqrt(x)) do 
		if i*i*i*x div i * x div i * x div i = n then begin
			a1 := i;
			b1:= x div i;
			Break
		end;
		
		
	WriteLn (a1 : 3, b1 : 3)
end.

Или

var
	n, i, a2, b2 : Integer;
		
begin
	ReadLn (n);
	for i := 1 to Round(Sqrt(n)) do
		if n mod i = 0 then begin
			a2 := Trunc(exp((1/3) * ln(i)));
			b2 := Trunc(exp((1/3) * ln(n div i)));
			if a2*a2*a2*b2*b2*b2 = n then
				Break
			else begin
				a2 := 0;
				b2 := 0
			end;
			
		end;
		
	WriteLn (a2 : 3, b2 : 3)
end.