Дано натуральное число. Найти сумму его делителей, не кратных 3. Нужно написать программу в Паскале через div и mod. Помогите пожалуйста!
Ответы
Ответ дал:
0
Программа считает 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.
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.
Ответ дал:
0
Вот так?
Ответ дал:
0
program qq;
var i,n,s: integer;
begin
writeln ('ââåäèòå íàòóðàëüíîå ÷èñëî');
readln (n);
s:=0;
for i:=1 to n do
if (n mod i = 0) and (i mod 3<>0) then
s:=s+i;
writeln (s);
end.
var i,n,s: integer;
begin
writeln ('ââåäèòå íàòóðàëüíîå ÷èñëî');
readln (n);
s:=0;
for i:=1 to n do
if (n mod i = 0) and (i mod 3<>0) then
s:=s+i;
writeln (s);
end.
Ответ дал:
0
В смысле?
Ответ дал:
0
Спасибооо!!
Похожие вопросы
2 года назад
7 лет назад
9 лет назад
9 лет назад
10 лет назад