Pascal помогите решить задачки

[Darf]

Здравствуйте! будте добры помогите мне решить эту задачу! нам поставили программирование ,а я не бум бум! Заранее огромное спасибо!


Приписать к числу 566 справа три цифры так,что-бы полученное шестизначное число делилась на 2,3,4,6,7,8,9

[Levsha100]

Если сумма всех слагаемых делиться без остатка на число то и число тоже делиться!
У Вас 1000 комбинаций!

[Darf]

Ещё одна задача № 2
ДАно натуральное число N найти все совершенные числа от 1 до n .Совершенное число- это такое число,которое равно сумме всех своих собственных делителей (т.е делителей,отличных от самого числа)

[__STDC__]

Сообщение от Levsha100

Если сумма всех слагаемых делиться без остатка на число то и число тоже делиться!
У Вас 1000 комбинаций!

мдо?) это признак делимости на числа, кратные 3... например если рассмотреть 14... оно на 7 делится без остатка, но сумма цифр - нет..

Darf, советую тут почитать http://ru.wikipedia.org/wiki/Признаки_делимости
Делать не буду.. это много раз тут решалось... и в гугле можно найти..

[Darf]

я непонимаю паскаль! я даж 2+2 на нём не сделаю....

[__STDC__]

сочувствую...

[Darf]

блин! да я тока смогу написать Program fg;
uses crt;
var
begin!
я эллектронщик! и нефига не могу понять паскаль!

[__STDC__]

function check:string;
var
	i,x,y,z:integer;
	flag:boolean;
	a,b,c:string;
begin
	for i:=0 to 999 do begin
		x := i div 100;
		y := i div 10 mod 10;
		z := i mod 10;
		flag := (z mod 2 = 0) and
				((17+x+y+z) mod 3 = 0) and
				((y+z) mod 4 = 0) and
				((56600+x*10+y-2*z) mod 7 = 0) and
				((x+y+z) mod 8 = 0) and
				((17+x+y+z) mod 9 = 0);
		if flag then begin
			str(x,a);
			str(y,b);
			str(z,c);
			check := a+b+c;
			exit;
		end;
	end;
	check := '???';
end;

begin
	write('566',check);
    readln;
end.

вот мой вариант.. только хз.. на 8 точно надо? таких чисел не хочет находить.. без 8 работает
***
Потестил.. получается что в диапазоне 566000 - 566999 нет таких чисел, которые одновременно делились бы на все вышеназванные числа (включая 8)... если без 8 - таких чисел набирается около 4.. или 5.. не помню уж..

[Darf]

Огромное спасибо!!!!!

[__STDC__]

Сообщение от Darf

Огромное спасибо!!!!!

так чего с восьмеркой-то? с ней ничего не получается.. если без нее надо там где вычисляется значение флаг удалить или закомментировать то, что с 8..