Предмет: Информатика,
автор: RisRi
Найти все целые числа из промежутка от 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.
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.
Похожие вопросы
Предмет: Алгебра,
автор: MRSashaYT
Предмет: Математика,
автор: denisromanak
Предмет: Биология,
автор: bajbolotmoldotaev
Предмет: Право,
автор: 0954755565
Предмет: Литература,
автор: ahdeza