Dadora
5 год назад
Составьте программу нахождения количества делителей числа n (значение n вводится с клавиатуры)
ОТВЕТЫ
Лукич
Aug 9, 2019
uses crt;
Var x, y, k:integer;
procedure delit;
begin k:=0;
writeln(Делители числа , x, :);
for y:=1 to x do if x mod y=0 then
begin
write( y, );
k:=k+1
end;
writeln(Количество делителей числа , x, равно , k);
end;
begin clrscr;
writeln (Введите число: );
readln (x);
delit;
readln;
end.
Var x, y, k:integer;
procedure delit;
begin k:=0;
writeln(Делители числа , x, :);
for y:=1 to x do if x mod y=0 then
begin
write( y, );
k:=k+1
end;
writeln(Количество делителей числа , x, равно , k);
end;
begin clrscr;
writeln (Введите число: );
readln (x);
delit;
readln;
end.
178