Предмет: Информатика,
автор: fancy888
Дано натуральное число. Найти сумму его делителей, не кратных 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
Спасибооо!!
Интересные вопросы
Предмет: Русский язык,
автор: ayazhan1050
Предмет: История,
автор: alinabogush999
Предмет: История,
автор: medetkaldanbaj
Предмет: История,
автор: chubarov03
Предмет: Алгебра,
автор: artemzaharin01