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