помогите решить задачи на делфи!!!!ОЧЕНЬ СРОЧНО И ОЧЕНЬ НАДО!!!!

Delphi обязательно? :) или и паскалевский код пойдётЪ?

вот 2 и 3
2)
program prg_1;
var
n,k:integer[5];
summ:longint;
begin
writeln('Введите число n');
repeat
readln(n);
until (n>0) and (n<5);
repeat
readln(k);
until (k>0) and (k<5);
case n of
1:do
begin
for n:=1 to 9 do
if n mod k=0 then
summ:=summ+n;
end;
2:do
begin
for n:=10 to 99 do
if n mod k=0 then
summ:=summ+n;
end;
3:do
begin
for n:=100 to 999 do
if n mod k=0 then
summ:=summ+n;
4:do
begin
for n:=1000 to 9999 do
if n mod k=0 then
summ:=summ+n;
end;
writeln('Сумма всех ',n,'-значных чисел кратных 'k':',summ);
readln;
end.

3)
var
n,i:integer;
begin
writeln('введите число n');
while n<1 do
readln(n);
writeln('Делители числа n:');
for i:=1 to n do
if n mod i=0 then writeln(i);
readln;
end.

4)
var
n,i:integer;
begin
writeln('введите число n');
while n<1 do
readln(n);
writeln('Делители числа n:');
for i:=1 to n do
if (i mod 2<>0) and (i mod <>0) and (i mod 5<>0) then writeln(i);
readln;
end.

Ты на програмиста учишся? какой из тебя програмист получится если ты будеш тут решать все.!

еба, вот ангелу смерти делать больше нечего. и кстати 4 задачка как будто олимпиадная, мы её в школе решали, но немного по другому. для больших чисел твой алгоритм не пойдет

я понимаю что очн надо но лучше сам ломай голову. А то потом ничего не поймешь