Экономика
Гость
11.07.2019
Дано натуральное число. Найти сумму его делителей, не кратных 3. Нужно написать программу в Паскале через div и mod. Помогите пожалуйста!
Ответы:
Программа считает 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.
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос Дано натуральное число. Найти сумму его делителей, не кратных 3. Нужно написать программу в Паскале через div и mod. Помогите пожалуйста! по предмету Экономика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.