Составьте программу Pascal находящую количество делителей натурального числа N
Составьте программу Pascal находящую количество делителей натурального числа N
Гость
Ответ(ы) на вопрос:
Гостьprogram wer;
var k, i, n: integer;
begin
writeln ('vvedi natur chislo');
readln (n);
if n>=1 then
begin
for i:=1 to n do
if n/i=n div i then k:=k+1;
writeln ('kol-vo delitelej=', k);
end else writeln ('eto chislo ne natur');
readln;
end.
Не нашли ответ?
Похожие вопросы