Паскаль работа с натуральным числом

[microlab]

а) найти сумму делителей числа
б) найти сумму четных чисел из промежутка от 1 до 100 ,у которых сумма делителей не превышает заданное число К(К вводиться с клавы)

[Sm1Le]

И что сложного ? Наработки есть ?

Берешь число, делиш его на Х по модулю и смотриш на остачу, если есть то не делитель. (Х от 1 до Числа)

А вторая почти тоже самое что и первая =)) Так что додумай =)

[microlab]

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

И что сложного ? Наработки есть ?

Берешь число, делиш его на Х по модулю и смотриш на остачу, если есть то не делитель. (Х от 1 до Числа)

А вторая почти тоже самое что и первая =)) Так что додумай =)

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

[Sm1Le]

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

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

сорь за оффтоп!!!

Ну это как ?

[microlab]

помоги плиз со второй частью я запутался не получаеться пустить два цыкла проверки на четность и на сумму скинь решение Б) я со своим сверюсь

[Sm1Le]

хехе - Как полная зараза, я должен сказать кидай ты, а я сверю ... !!!
Но мне как то все равно

for i:=1 to 100 do 
begin
 if i mod 2 = 0 then 
  begin
   if CуммаДелителей(i)>K then 
    Sum:=Sum+I;
    
  end;
end;

Ну а СуммаДел - это ж твое задание А, которое Ты решил таким хитрым для студентов способом !=))))))))))))))))))))

[microlab]

думай что сам пишешь в задаче не привышает заданное число к а ты ставишь иф если сумма делителей больше к ты еше сумму увеличиваешь

[microlab]

тут в задаче я думаю нужен цыкл вайл и условие внем пока сумма делителей не превышает к

[Sm1Le]

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

думай что сам пишешь в задаче не привышает заданное число к а ты ставишь иф если сумма делителей больше к ты еше сумму увеличиваешь

угу Знак поменять и всё !!! Место > НА < ....

[microlab]

program var14n5a;
uses crt;
var i,sum,sum1,k,z:integer;
begin
clrscr;
writeln('vvedite cymmy delitelei k= ');
readln(k);
sum:=0;
z:=1;
sum1:=0;
while z<=k do
begin
for i:=1 to 100 do
begin
if i mod 2 = 0 then
begin
if i mod z=0 then
sum:=sum+z;
z:=z+1;
sum1:=sum1+i;
end;
end;
end;
writeln('symma hiccel',sum1);
writeln('naszmite <ENTER> dli prodolszenii');
readln;
end.

исправь ошибку в нахождении суммы вывод не срабатывает