Дано натуральное число. найти сумму его делителей, - вопрос №46580173 от 89286762165 28.04.2021 14:41

Question

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

89286762165 · Answer

Программа считает 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.