Дано натуральное число. найти сумму его делителей, - вопрос №46580173 от Zavgorodnev04 10.05.2022 15:57

Question

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

Zavgorodnev04 · 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.