Дано натуральное число. найти сумму его делителей, - вопрос №34657515 от Викуха4А 28.04.2023 13:05

Question

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

Викуха4А · 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.