Предмет: Информатика, автор: RisRi

Найти все целые числа из промежутка от 100 до 300, у которых сумма делителей равна К (К вводится с клавиатуры). Для pascal, через цикл.


bezzubikkk: нужно вывести все целые числа или их количество?

Ответы

Автор ответа: bezzubikkk
0
var
k,i: integer;
begin
readln(k);
for i:=100 to 300 do
if i mod k=0 then writeln(i);
end.

RisRi: Нужно найти количество чисел
bezzubikkk: 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.
Похожие вопросы
Предмет: Математика, автор: denisromanak
Предмет: Литература, автор: ahdeza