ZONDO

Написать программу, которая высчитывает количество делителей заданного натурально значения k .

понял что нужен цикл for, только вот никак не выхохит правильного ответа, прошу помощи

Qiker

program gg;
uses crt;
var k,g,i,n:integer;
begin
clrscr;
write('введите целое число k=');
read(k);
n:=k;
for i:=1 to n do begin
if k mod i=0 then inc(g);
end;
writeln('число делителей равно g=',g);
readkey;
end.

---------- Добавлено в 14:15 ---------- Предыдущее сообщение было написано в 14:14 ----------

вот если я правильно все понял, но программа работает !! С новым годом!

ZONDO

спасибо......

Qiker

ZONDO, помогло?

ZONDO

да, немного пришлось изменить, а так всё оказалось верно, ваша помощь неоценима, наконец-то я сдал информатитку и получил допуск к сессии

Qiker

я рад, что с мог помочь.