Задания по паскалю

[diego-vitaliy]

1. Составить программу, проверяющую, является ли заданное число совершенным, т.е. равным сумме своих делителей, кроме самого числа.
2. Найти все двузначные числа, сумма цифр которых равна А.
3. Найти сумму делителей натурального числа.
4. Найти все целые числа из промежутка от 100 до 300, у которых сумма делителей равна К.
P.S. Видел некоторые темы с такими же задачами но ничего конкретного не нашел, помогите решить хотя бы несколько задач.

[Ermowkin]

2. Найти все двузначные числа, сумма цифр которых равна А.

Program t2;
 var
  i,A:integer;
begin
 writeln('Enter A');
 readln(A);
 For i:=10 to 99 do
  begin
   if StrToInt(Copy(inttostr(i),1,1))+StrToInt(Copy(IntToStr(i),2,1))=A then writeln(i);
  end;
  readln;
end.

[Mad_Cat]

Найти сумму делителей натурального числа.

s:=0;
for i:=1 to n div 2 do
if n mod i=0 then s:=s+i;
s:=s+n;

[Акоб]

4. Найти все целые числа из промежутка от 100 до 300, у которых сумма делителей равна К.

А зачем писать название темы "Задания по паскалю" в разделе "Паскаль"?:P

s := 0;
for i := 100 to 300 do
begin
for j := 2 to i - 1 do
begin
if (i mod j) = 0 then
begin
s := s + j;
end
if s = k then
begin
writeln(i);
end
end
s := 0;
end

[diego-vitaliy]

Спасибо большое!! Акоб, просто при создании темы нельзя использовать слова: помогите хелп, задачи и т. п. ну просто сразу не сообразил :D

[phomm]

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

2. Найти все двузначные числа, сумма цифр которых равна А.

StrToInt(Copy(inttostr(i),1,1))+StrToInt(Copy(IntToStr(i),2,1))=A then

жестенько )) тем более паскаль же, никаких inttostr

if (i div 10) + (i mod 10) = A then

[DRAgon™]

1 по мойму так

uses crt;
var c,s,x:integer;
    i,j:byte;
BEGIN
s:=0;
readln(x);
for i:=1 to 234 do
for j:=1 to 234 do  begin
if (x div i=j)And(x mod i=0)AND(x div x<>i) then s:=s+j;
 end;
if (x=s) then   Writeln('совершенно') else   Writeln('не совершенно');
END.

[Ermowkin]

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

жестенько )) тем более паскаль же, никаких inttostr

if (i div 10) + (i mod 10) = A then

Точно Я просто в консоле Delphi писал.