Question

Дано натуральное число. Найти сумму его делителей, не кратных 3. Нужно написать программу в Паскале через div и mod. Помогите пожалуйста!

Answer 1

Программа считает 1 и само число(Если оно не кратно 3) за делители
program n1;
  uses crt;
var
  i,x,s:integer;
begin
writeln('Введите число'); readln(x);
s:=0;
for i:=1 to x do
  if (i mod 3<>0) then s:=s+i;
writeln(s);
end.

Answer 2

Вот так?

Answer 3

program qq;
var i,n,s: integer;
begin
writeln ('ââåäèòå íàòóðàëüíîå ÷èñëî');
readln (n);
s:=0;
for i:=1 to n do
if (n mod i = 0) and (i mod 3<>0) then
s:=s+i;
writeln (s);
end.

Answer 4

В смысле?

Answer 5

Спасибооо!!