Задачи паскаль.Буду признательна))

[Лиия]

1. Найти сумму натуральных чисел, предшествующих заданному числу а, введенному с клавиатуры.Дано натуральное число n. Получить все его натуральные делители.
2. Даны натуральные числа m, n. Получить все кратные им числа, меньшие m*n.
3. В трехзначном числе зачеркнули первую цифру слева. Когда полученное двузначное число умножили на 7, то получили данное число. Найти это число.
4. Сумма цифр трехзначного числа кратна 7, само число также делится на 7. Найти все такие числа.
5. Дано натуральное число n (n<10000). Определить, является ли оно палиндромом («перевертышем») с учетом четырех цифр. Например, 2222, 6116,0440.

[Hacker19_90]

собственно говоря в чём вопрос?

[Лиия]

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

собственно говоря в чём вопрос?

нужна помощь в решении

[Hacker19_90]

Ээээх! так бы и писали решите задачи пожалуйста!
допустим 4

Сумма цифр трехзначного числа кратна 7, само число также делится на 7. Найти все такие числа.

for i := 100 to 999 do
    if ((i mod 7) = 0) and ((((i div 100) + ((i mod 100)*10) + (i mod 10)) mod 7) = 0) then
    writeln (i);

3. В трехзначном числе зачеркнули первую цифру слева. Когда полученное двузначное число умножили на 7, то получили данное число. Найти это число.

for i := 100 to 999 do
    if ((i mod 100)*7) = i then
    writeln (i);

2. Даны натуральные числа m, n. Получить все кратные им числа, меньшие m*n.

max := m;
if n > m then max := n;
for i := max to ((m*n)-1) then
    if ((i mod m) = 0) and ((i mod n) = 0) then
        writeln (i);

1. Найти сумму натуральных чисел, предшествующих заданному числу а, введенному с клавиатуры.Дано натуральное число n. Получить все его натуральные делители.

sum := 0;
for i := 1 to a then
    Inc(sum, i);
writeln (sum);
for i := 1 to n do
    if ((n mod i) = 0) then writeln (i);

[Hacker19_90]

Ну как сойдёт???

[Лиия]

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

Ну как сойдёт???

конечно) спасибо огромное:***

[VIK_aka_TOR]

5. Дано натуральное число n (n<10000). Определить, является ли оно палиндромом («перевертышем») с учетом четырех цифр. Например, 2222, 6116,0440.

var n, a,b,c,d:integer;
begin
readln(n);
if ( n < 10000) then
begin
if n < 100 then begin writeln('не полиндром'); exit; end;
if (n >= 100) and (n < 1000) then a:=0
else  a:= n div 1000;
b:= (n div 100) - a*10;
d:= n mod 10;
c:= n div 10 - a * 100 - b*10;
if (a = d)  and  (  b = c ) then writeln ('полиндром');
end
else writeln('Слишком большое число');
end.