Ответы
Ответ дал:
0
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.
Похожие вопросы
2 года назад
7 лет назад
9 лет назад
9 лет назад
10 лет назад