Найти все целые числа из промежутка от 100 до 300, у которых сумма делителей равна К (К вводится с клавиатуры). Для pascal, через цикл.
bezzubikkk:
нужно вывести все целые числа или их количество?
Ответы
Ответ дал:
0
var
k,i: integer;
begin
readln(k);
for i:=100 to 300 do
if i mod k=0 then writeln(i);
end.
k,i: integer;
begin
readln(k);
for i:=100 to 300 do
if i mod k=0 then writeln(i);
end.
Нужно найти количество чисел
var
k,i,n: integer;
begin
readln(k); n:=0;
for i:=100 to 300 do
if i mod k=0 then inc(n);
writeln(n);
end.
k,i,n: integer;
begin
readln(k); n:=0;
for i:=100 to 300 do
if i mod k=0 then inc(n);
writeln(n);
end.
Вас заинтересует
1 год назад
1 год назад
2 года назад
2 года назад
3 года назад
3 года назад
9 лет назад